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1 . ABSTRACT 

The PDP-15 Basic Exerciser is designed to exercise the CP, core memory 
and models 33 or 35 teleprinters with the program interrupt facility 
enabled. The program will also test the real time clock, high speed 
reader and high speed punch, if these options are present on the PDP-15 
being used. The operator must specify the I/O configuration with the 
A C switches as described in section 5.1. 

The Basic Exerciser consists of a condensed version of the PDP-15 
Instruction Tests. These tests run continuously, and are interrupted at 
a device rate by the I/O device (s). The real time clock, if used, will 
interrupt and suspend all operations at random time intervals. The 
instruction test or I/O device resumes operation after the clock interrupt 
has been serviced . 

Ten ACS functions (described in sect. 5.1) are provided to enable the 
operator to (1) inhibit the instruction and memory tests and run the I/O 
device (s) alone; (2) inhibit program interrupts and run the instruction 
tests alone; -(3) loop continuously on the adder test; (4) inhibit 
program relocation; (5) inhibit the real time clock, but continue testing 
with program interrupt and all other devices enabled; (6) run the instruction 
tests and the clock and punch with the read and print sequence inhibited; 
(7) run the reader, real time clock and instruction tests with the punch 
and Teletype inhibited; (8) run the read and print sequence, real time 
clock, instruction tests with the punch inhibited; (9) run the Teletype and 
instruction tests with the punch and reader inhibited. Items 6, 7 and 8 
above, are applicable only when the high speed reader and punch option 
is installed. 

2. REQUIREMENTS 

2.1 Equipment 

A PDP-15 with at least 8K of core memory. 

2.2 Storage 

The program requires the entire 8K of core memory to perform all tests. 
The program initially resides in memory locations 00000 to 7757 (octal). 
When the program is relocated to the high order 4K field, it occupies 
locations 10022 to 17757 (octal). 

3. LOADING PROCEDURE 



The tape supplied is in the .ABS format. 



a. Set the ADDRESS switches to 17700. 

b. Place all AC switches on a 0; the BANK MODE switch on. 

c. Place the tape in the reader. 

d. Press I/O RESET, and then READ-IN. 
4. STARTING PROCEDURE 

4.1 Starting Addresses 

200, or 10200 if the program is currently in the upper 4K field. 

4.1 .1 Restarting Addresses 

32, or 10032 if the program is currently in the upper 4K field. 

4.2 Operator Action Without High Speed Reader and Punch 

a. Set the ADDRESS switches to 00200. 

b. Place ACS 9 on a 1 to indicate no high speed reader and punch. 

c. If a real time clock is not installed place ACS 5 on a 1 . 
Otherwise, leave on a 0. 

d. Press I/O RESET, and then START. 

e. The program will run until an error halt occurs, or manually 
stopped by the operator. 

4.2.1 Operator Action With High Speed Reader and Punch 

a. Set the ADDRESS switches to 00200. 

b. Place all ACS on a 0. 

c. If a real time clock is not installed place ACS 5 on a 1 . 
Otherwise, leave on a 0. 

d. Press I/O RESET, and then START. 

e. Approximately 3 1/2 feet of leader will be punched. This 
leader is blank except for one frame, which has all channels 
punched . 
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f. Place the punched frame directly over the high speed reader 
drive sprocket, and arrange the tape between the reader and 
punch for minimum binding. 

g. Press CONTINUE. 

h. The program will run until an error halt occurs, or manually 
stopped by the operator. 

4.2.2 Restarting Procedure 

a. Set the ADDRESS switches to 00032. 

b. Set ACS 5 and 9 according to the I/O configuration being 
used. Other AC switches may be set at this point. See 
section 5.1 . 

c. If the high speed reader and punch are used, make sure there 
is tape in the reader. The tape does not have to be blank 
leader when restarting. 

d. Press I/O RESET, and then START. 

e. The program will run until an error halt occurs, or manually 
stopped by the operator. 

The program may also be restarted from 200, if new leader is desired. 
5. OPERATIONAL SWITCH SETTINGS 

The ACS functions provided are listed in section 5.1 . To make changes 
in the ACS settings, the program must be stopped by the operator before 
the changes are made. The program must then be restarted from address 
32 (or 10032). The program may not acknowledge the new ACS settings 
if the above procedure is not followed. 



5.1 ACS Functions 



ACS Function 



0) Run only the I/O device (s). Program interrupt will 

be enabled. 

1 0) Inhibit the I/O device (s). Program interrupt is 

disabled. The real-time clock is on. The complete 
instruction test will be performed. 



2 0) Loop continuously on the "add random pairs" test. The 

I/O devices end program interrupt will be enabled unless 
specified otherwise by an ACS. 
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5.1 Continued 

ACS Function 



4 (1) Inhibit program relocation. Unless otherwise 

specified, the program will run in a normal way, 
but will not relocate from its current 4K field 
location to the opposite field after completing the 
instruction tests. 

5 (1) Inhibit clock. Unless otherwise specified, program 

action is normal except that the clock should always 
be off. 

6 0)* Inhibit the reader and TTY. The punch will run 

continuously. Tape must be in the reader to prevent 
the no-tape indicator from being set. Program 
action is normal unless otherwise specified. 

7 (1)* Inhibit the punch and TTY. The reader will run 

continuously. A loop or fan-fold tape with any 
data may be used. Program action is normal unless 
otherwise specified. 

8 (1)* Inhibit the punch. The reader will read 52 characters 

at full speed and then halt. The TTY will then print 
the 52 characters read. Any tape loop or fan-fold 
tape may be used. Program action is normal unless 
otherwise specified. 

9 (1) No high speed reader and punch installed. 

(0) The high speed reader and punch option is present. 

With ACS 9 on a 1 switches 6, 7 and 8 are ignored. 

If the reader and punch option is installed, the I/O devices may be 
controlled with several combinations of ACS 6, 8 and 8. If ACS 7 and 8 
are set to ones, the reader will run continuously, as if ACS 7 only were 
on a 1 . If ACS 6 and 7 or 6 and 8 are set to ones, all devices will be 
inhibited. Program interrupt and the real time clock (if installed) will be 
enabled unless otherwise specified. 



* Applies only if the high speed reader/punch option is installed. 
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5 .2 Subroutine Abstracts 



The PDP-15 Basic Exerciser may be the thought of as three separate 
programs, i.e., the instruction tests; control of the I/O device (s), 
and operation of the real time clock if installed. The instruction 
tests will be interrupted by the I/O device (s) at the device rate. 
The real time clock will randomly interrupt any of the above operations 
at a rate determined by the program. After each clock interrupt, the 
clock is re-initialized with a new number obtained by a random number 
generator. The clock interrupts take first priority, followed by the 
Teletype, reader and punch. 



5.2.1 Instruction Tests 



The instruction test portion of the Basic Exerciser performs tests on all 
operate group and memory reference instructions. The individual 
instructions are looped a random number of times before proceeding 
to the next test. The maximum number of loops made on any one test 
is 32,767. 

The adder is tested using two different methods. The first performs bit 
by bit tests on the adder using the ADD instruction. Besides checking 
for correct results after an addition, the link is tested during overflow 
and no overflow conditions . 

The second method, the "Add Random Pairs" test, tests the adder using 
one pair of random numbers (A and B) and their 1 's complement values 
(-A and -B), and the ADD instruction. These four values are added 
in various combinations, the results of which are compared against 
precalculated results. The precalculated results are obtained by adding 
the two pairs together using the TAD instruction. Four additions are 
made, the results of which are used in the test. The link is tested after 
each addition. If it is a 1, a 1 is added to the result to simulate an 
end-around-carry . 

The numbers added and their sums are indicated in the listing using the 
following symbols: 

-B+(-A) = SUMNEG 

A+B = SUMPOS 

B-A = BMASUM 

A-B = AMBSUM 

The values of A, -A, B and -B plus their sums are used to test the 
combinations of ADD's shown below. 

ADD SUM SHOULD EQUAL 

A + B SUMPOS 

-B + A AMBSUM 

-B + (-A) SUMNEG 

B-A BMASUM 
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5.2.1 



Continued 








ADD 








(A + B) - A 








(B - A) - B 








(-A-B) + A 








(A - B) + B 








////// + A 








A + B - A 








A + B - A - 


A 






A + B - A - 


A - 


B 




A + B - A - 


A - 


B - 


B 


A + B - A - 


A - 


B - 


B 



SUM SHOULD EQUAL 



BPOS 


(B) 


ANEG 


(-A) 


BNEG 


(-B) 


APOS 


(A) 


APOS 




BPOS 




BMASUM 


(B- 


ANEG 




SUMNEG 


(-A 


BNEG 





A) 

-B) 
+ A 

A + B-A-A-B-B + A + A AMBSUM (-B + A) 

A + B-A-A-B-B + A + A + B APOS 

After completing one pass of the above tests, a second pass is made on the 
same tests. The second pass makes all "B" constants "A", and all "A" 
constants "B" before repeating. 

Immediately following the second pass, one random number and its Is 
complement is obtained and saved in APOS and ANEG, respectively. 
Bit of APOS is tested for equaling or 1 . If the value is 1, the bit 
remains unchanged, and the respective bit in the complement number is 
changed to equal a 1 . The two numbers are then added together, the 
sum of which should equal all O's except for bit 0. If the ADD is 
successful, the program continues testing all other bit positions in the 
same manner. 

Example: (Bit altered) 

Step APOS Value ANEG Value 

1 577776 200001 

2 577776 600001 (bit altered) 

3 Add together. Result should = altered bit. 

+ 101 111 111 111 111 110 
110 000 000 000 000 001 



+ 011 111 111 111 111 111 

1 (end around carry) 

100 000 000 000 000 000 
The sum equals the altered bit position. 
After completing the adder tests, the remaining memory reference instructions 
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5.2 J Continued 

are tested and the program relocates the entire Basic Exerciser to the 
opposite 4K field. All memory reference instructions and memory 
locations used for testing are adjusted accordinly. All locations within 
the program which reference any memory location between and 21 
are not adjusted. These locations are used during program interrupts, 
auto-indexing tests, etc., and must not be altered. Program interrupt 
is disabled while relocation is taking place. 

After relocation of the program is completed, the exerciser is auto- 
matically restarted at location 112 (or 10112). This location is tagged 
SEQUEN . The operator is able to determine the location of the program 
by observing the PC. 

The Teletype BELL will ring once for each completed pass of the program. 
One pass is defined as the program performing all tests from each 4K 
field, and then relocating back to the field in which the program was 
first initiated. 

When operating the Basic Exerciser with program interrupt inhibited 
(ACS 1 on a 1), the message "COMPLETE" will be printed after five 
complete passes of the program. This message is printed after ten 
passes when ACS 4 (inhibit relocation) and ACS 1 are on a 1 . This 
feature is included as a means to determine the number of successful 
passes completed by the program if it is to be run for extended periods 
of time . 

5.2.2 Punch, Read, Print Sequence 

This section applies only to those PDP-15's with the high speed reader 
and punch option installed. The instruction tests will be interrupted, 
at a device rate, by the punch, reader, or Teletype. The data punched 
consists of the alphabet characters, followed by numbers through 9, 
with a space character being punched between each letter or numeral 
character. The reader will read the tape at punch speed, storing away 
any punched character. Frames of all 0's are ignored. The punch and 
read sequence consists of 52 ASCII characters punched, read and stored 
away in an input buffer (tagged TTBUFA). After reading the 52nd 
character, the contents of TTBUFA are transferred directly to another 
52 - location buffer tagged TTBUFB. This second buffer is provided 
to enable the operator to stop the program and compare the contents 
of either buffer A or buffer B with the punched data on tape. Punch 
and read operation is halted after the 52nd character is read and stored. 
The contents of TTBUFB are then printed on the Teletype. The punch 
and read sequence continues immediately after the 52nd character is 
printed. The data punched and read should appear on the Teletype as 
the example below. 

ABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789 
ABCDEFGHIJKLMNOPQRSTUVWXYZJZI123456789 
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The punch and read sequence generates 72 characters altogether, even 
though only 52 are punched, read and printed at one time. The alphabet 
and numbers sets with a space between each character enables a full line 
to be printed. The spacing also enables the operator to more easily 
detect a misprinted character. Each group of 72 characters is separated 
by 8 blank frames. The group which is positioned in the reader is the 
current line being printed. A carriage return and a line feed is punched 
at the end of each group. The program will punch 6 extra blank frames 
between two groups, approximately every fourteenth group, to enable the 
slack between reader and punch to remain constant. 

5.2.3 Use of the Real Time Clock 

This section applies only to those PDP-15's with the real time clock option 
installed. The instruction and memory tests, and the punch, read and print 
sequence are both interrupted randomly by the real time clock. When a 
clock interrupt occurs, all other operations are halted until the clock 
interrupt has been serviced. Immediately after the clock interrupt is 
granted, it is reset to a new random value. This value is chosen by the 
program to ensure that the clock interrupts no sooner than 2 seconds, nor 
later than 9 seconds. The clock is again enabled after being reset to a new 
value, and the instruction test or read, punch and print sequence is 
allowed to continue from the point of interrupt. 

At times, the Basic Exerciser may appear to be caught in a loop after a 
clock interrupt occurs. The console indicators will show the clock and 
PIE as being disabled, and the punch, read and print sequence will be 
halted for several seconds. The program during this time is attempting to 
generate a number for the clock which falls within the 2 to 9 second 
limit. All operations will be resumed as soon as a suitable random value 
is found. 

The operator may disable the clock interrupts by restarting from location 32 
with ACS 5 on a 1 . 

5.2.4 Interrupt Service Routine 

Program interrupts by the clock, punch, reader or Teletype are all 
serviced by a common routine. A common routine for reentering the 
instruction test is also used. 

Locations through 6 are used to save the contents of the AC and PC 
immediately after an interrupt occurs. The contents of the AC are stored 
in the location tagged SAVAC. The contents of the link and PC are 
stored in the location tagged RJMP. The program then enters a routine 
which determines which of the four devices interrupted the program. This 
routine is tagged SRVINT. SRVINT will test for device flags in the 



following order: clock, Teletype, no-tape flags, reader, punch. 
The first device flag found to be set indicates the device which must 
be reinitiated by the program. 

Immediately after servicing the proper device, a routine is entered 
which will restore the contents of the link and AC at the time of the 
program interrupt. The routine is tagged RTNIT. RTNIT first restores 
the AC (from SAVAC); restores the link (by testing bit of RJMP); 
enable program interrupt; and then returns to the instruction test by a 
JMP indirect on the contents of RJMP. 

The operator may disable program interrupts by restarting from location 32 
with ACS 1 on a 1 . 

5.3 Program and Operator Action 

See Sections 4.2 and 5.2. 
6. ERRORS 

6.1 Error Halts and Description 

Reference the program listing for all error halts. 

All error halts are tagged EXXX, and are commented to aid debugging. 
Each test is self-contained, any may be looped. See Section 6.2.1 for 
looping instructions. 

Unless a solution is obvious from following the listing, the proper MAINDEC 
diagnostic for the device in error should be run. This should be necessary 
mainly when errors are caused by one of the I/O devices. 

Incorrect operation of the real time clock will appear as clock interrupts 
occurring sooner than 2 seconds apart, or greater than 9 seconds, or 
possibly no clock interrupts will occur. 



Printing of incorrect data may be caused by the data being incorrectly 
punched, read or printed. Storage registers, and their locations in the 
program, which the punch, read, print sequence use are listed below. 

Tag Function 

SAVAC Saves contents of AC after a program interrupt. 

Rj-TJffe Saves contents of PC and link after a program 

interrupt . 
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Continued 

Tag 
WORK 
GOPNCH 

SETCLK 

CLKSET 

TTOUT 
TTIN 

TTBUFA 

TTBUFB 

STORE 
SETTY 

GENRAN 
RANGEN 



Function 

Bit 1 if set indicates TTY is in use. 

Contains contents of PC at exit from 
punch routine. 

Routine which sets a random value in 
clock register 7 when program interrupt 
is disabled. 

Same function as SETCLK, but is used only 
after a clock interrupt. 

Location pointer for TTBUFB when printing. 

Location pointer for TTBUFA when reading 
with a high speed reader. 

Storage buffer for characters read with a high 
speed reader. 

Storage for characters to be printed. Contents 
should equal TTBUFA. 

Contains character punched. 

Routine which is entered after 52 characters 
have been punched and read. Sets up 
TTBUFB before printing. 

Random number generator used when PI is 
disabled . 

Same as GENRAN, but used only after an 
interrupt. 



When using the teleprinter alone (ACS 9 on a 1) the characters printed are 
generated by the routine tagged PNXT on the program listing. After 
generating one character, the routine will either immediately print it 
(ACS 9 on a 1), or punch it with the high speed punch (ACS 9 on a 0). 

When operating with the high speed reader and punch (ACS 9 on a 0) the 
data punched is in ASCII mode, and one printed line is indicated on the 
paper tape by 8 blank frames separating each line. The punched data 
starts with character A (301) and ends with a line feed (212). A space 
character (240) is punched between all alphabet and number characters. 
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When data is incorrectly printed, stop the program during print-out. 
This will enable TTBUFA and TTBUFB to be examined before the contents 
of either are changed. The contents of TTBUFA will be changed as 
soon as reading begins. 

The line of punched characters in the reader is the line currently being 
printed. The operator may inspect the tape for an incorrect character 
punched. If it appears correctly on the tape, it may have been read 
or printed incorrectly. The characters read are stored in a 52-word 
buffer beginning at location tagged TTBUFA. The characters 
being printed are stored in a 52-word buffer beginning at location 
tagged TTBUFB . If the program was stopped during printing, these two 
buffers should contain exactly the same information. The first character 
read or printed is stored in the first location of either buffer. One 
character is stored per location. If the data was read incorrectly, the 
contents of TTBUFA will not equal the last 52 characters on the tape. 
If the data on tape, and in TTBUFA and TTBUFB are equal, the tele- 
printer may be at fault. 



6.2 Error Recovery 



Press CONTINUE to receive further error halts or to continue testing, as 
indicated by the listing. 

Recovery from error halts in the Add Random Pairs test is accomplished by 
pressing CONTINUE one or more times, depending on the type of error 
encountered. Pressing CONTINUE after a halt due to an incorrect sum 
will result in a second halt. The AC will equal the incorrect sum at the 
first halt, and the sum used for comparison at the second halt. If the 
error halt is the result of a LINK error, the next test in sequence will be 
executed . 

Looping on Individual Tests 

Looping on individual tests, except for the interrupt routines, Add Random 
Pairs test and Memory test, is accomplished by placing a JMP instruction 
in the first location of the test to be looped. Restart the program at 
location 32, if program interrupt is to be enabled. Restart at the first 
location of the test to be looped, if interrupts are not wanted. 

The complete series of tests for any one instruction may be looped by 
placing a NOP in the location which contains ISZ WORK3. This 
instruction appears at the end of each series of tests for each instruction. 
Restart at location 32, or at the beginning of the test to be looped. 

Looping on Add Random Pairs 

The complete series of tests may be looped by restarting from location 32 
with ACS 2 on a 1 . 
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10. 



The individual tests may be looped by changing the LAW instruction, 
appearing after each test, to a JMP. For example, to loop on 
(A-B) + B = A (tagged AMBPBT), change the LAW AMBPBT instruction 
to JMP AMBPBT. Restart from location 32, or AMBPBT. 

Error Print-outs 



The program continually tests for reader or punch no tape indicators 
being set. When either indicator is set the message "R NO TAPE", or 
"P NO TAPE" will be printed. The program continues on in sequence 
after either print-out. 

OPERATING RESTRICTIONS 

All MAINDEC diagnostics which apply to the PDP-15 configuration being 
used should be run before attempting to run this program. 

MISCELLANEOUS 



8.1 Execution Time 



Approximately 2 minutes are required to execute all tests for one 4K field. 

9. PROGRAM DESCRIPTION 

The Basic Exerciser performs tests on all memory reference and operate 
instructions. 

During normal operation, i.e., with ACS 5 and 9 set for the I/O 
configuration in use, and all other ACS on a 0, the program will exercise 
the I/O device (s) and program interrupt while the instruction test portion 
is running. The PC indicators will change according to the portion of the 
instruction test being executed. 

When the I/O device (s) is operated with the instruction test inhibited 
(ACS on a 1) the Ml will indicate a constant 600151 (JMP 151) . On 
the listing this is written as JMP. . at location 151. Program interrupt 
is enabled at location 15/0, and all device interrupts will occur immediately 
after the execution of the JMP instruction. The interrupts are handled in 
the same manner as if the instruction test were operating; the only difference 
being that the interrupt service routine (RTNIT) always returns to location 
150 after reinitiating the device which caused the interrupt, instead of 
returning to the instruction test. 

If no errors occur, the Basic Exerciser will run until stopped by the 
operator . 



LISTINGS 
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PAGE 1 BX8K 





/•JOT DEFINITIONS 


700001 

700004 
700044 


ClSFs700001 

CLOFs70B004 

CLON«700044 

t 

RSF=700101 

RCF»700102 

RR8s7001l2 

RSA»700104 

RSas700144 

• 

PSP«700201 

PCF»700202 

PSA»700204 

PSBa700244 

/ 

KSF»70030l 

KRB=7003l2 


700101 
700102 
700112 
700104 
700144 


700201 
700202 
700204 
700244 


700301 

700312 


700401 
700402 
700406 
740030 
742030 


/ 

TSFs700401 
TCFs700402 
TLS"700406 
IACs740030 
SWHA«742030 

/ 



^AGE 



BX8K 



BX8K 



.TITUE 8X8K 
/PDp-15 BASIC EXERCISER FOR 8K OR MORE 
/ 
/COPYRIGHT 1969, DIGITAL EQUIPMENT CORP., MAYNARD, IaSS, 

,ABS 





740000 


NOPls 


NOP 




740000 


N0P2" 


MOP 




740000 


N0P3» 


NOP 




740040 


HAWT» 
/ 


HLT 


00022 




,LOC 22 


00022 


750004 


1 

BEGIN 


i LAS 


00023 


507345 




ANO K3400 


00024 


740200 




SZA 


00025 


600032 




JMP ,*5 


00026 


107217 




JMS PNLEDR 


00027 


107231 




JMS PNMARK 


00030 


107217 




JMS PNLEDR 


00031 


740040 




HAUT 


00032 


147520 




OEM W0RK4 


00033 


147334 




OZM BREAK 


00034 


703302 




CAF 


0003? 


147514 




OfM WORK 


00036 


147001 




DZM COPNCH 


00037 


206704 




LAC DATABL 


00040 


047352 




DAC TTlN 


00041, 


047351 




OAC TTOUT 


00042 


447351 




IS? TTOUT 


00043 


167351 




DIM* TTOUT 


00044 


207351 




LAC TTOUT 


00045 


546705 




SAO ENOBIN 


00046 


741000 




SKP 


00047 


600042 




JMP ,«5 


00050 


206704 




LAC DATABL 


00051 


047351 




DAC TTOUT 


00052 


206360 




LAC ENOTBL 


00053 


047335 




OAC WOCNT 


00054 


777737 




LAW -4J 


00055 


047273 




OAC CRLF 


00056 


447335 




JSZ WOCNT 


00057 


167335 




02M« WDCNT 


00060 


447273 




ISZ CRLF 


00061 


600056 




JMP ,«3 

•EJECT 



/CHECK FOR SWITCHES 7,8 OR 9 



/SETUP POINTERS 
/CLEAR TTY BIN 

/RESTORE POINTER 



/CLEAR ERROR TABLE 



PAG! 



BX8K 



BXBK 



00062 
00063 
00064 
00065 
00066 
00067 
00070 
00071 
00072 
00073 
00074 
00075 
00076 
00077 
00100 
00101 
00102 
00103 
00104 
00105 
00106 
00107 
00110 
00111 
00112 
00113 
00114 
00115 
00116 
00117 
00120 
00121 
00122 
00123 
00124 
00125 
00126 
00127 
00130 
00131 
00132 
00133 
00134 
00135 
00136 
00137 
00140 
00141 
00142 
00143 
00144 
00145 
00146 



700002 
750004 
507425 
741200 
600076 
207302 
047002 
760377 
700406 
207245 
046567 
600107 
700104 
750004 
5074^7 
741200 
700204 
206656 
046567 
206406 
047002 
200147 
047001 
047527 
207501 
040001 
206526 
040003 
207535 
040004 
206527 
040005 
206530 
040006 
207533 
040002 
040021 
447520 
750004 
507437 
741200 
106614 
750004 
741100 
600150 
740010 
740100 
700042 
750004 
507343 
740200 
602413 
600152 



TELLY 



SEQUEN 



IOF 
LAS 
AND 
SN'A 
JMP 
LAC 
OAC 
LAW 
TLS 
LAC 
OAC 
JMP 
RSA 
LAS 
AMD 
SNA 
PSA 
LAC 
DAC 
LAC 
DAC 
LAC 
OAC 
DAC 
LAC 
DAC 
LAC 
DAC 
LAC 
DAC 
L*C 
OAC 
LAC 
DAC 
LAC 
OAC 
OAC 
IS? 
LAS 
AND 
SNA 
JMS 
LAS 
SPA 
JMP 
RAL 
SMA 
ION 
LAS 
AND 
SHA 
JMP 
JMP 



/PI OFF 



K400 

TELLY 
KJMP 

GOPMCH*l 
377 

TLSSF*6 
RTNIT-3 
SEQUENT 



K3K 



E645*l 

RTNJT-3 

TA0RAN*2 

GOPNCH*! 

INlTPI 

GOPNCH 

RJMP 

KSKP 

1 

SAV3 

3 

SAV4 

4 

SAV5 

5 

SAV6 

6 

KHALT 

2 

21 

WORM 

K10K 

SETCLK 



INHIT 



K100K 

RANADD*2 
!0TST^2 



/NO TTY 
/JMP E646*3 



/SET FLAG 

/1NIT1ALI2E REAOERi PU^CH 

/JF ACS 7 OR 8 A 1. OOMT PUNCH 

/NOP 

/INITPI = PNSTRT 

/(RJMP) ■ PNSTRT 
/RESTORE ADORESS 1 (SKP) 

/RESTORE ADDRESS 3 

/RESTORE ADDRESS 4 

/RESTORE ADDRESS 5 

/RESTORE ADDRESS 6 

/RESTORE ADORESS 2 (MALT) 

/PASS COUNTER 

/CHECK ACS 5 FOR INHIBIT CLOCK 

/INHIBIT INST, TEST 

/CHECK FOR INHIBIT PI 
/PI ON 



/CHECK LOOP ON RANDOM ADD 
/LOOP 



00147 006710 



/ 

INITPI 



PNSTRT 



PACE 



BX8K 



BXBK 



550150 
00151 



700042 
600151 



/I^IBIT INSTRUCTION TEST 
INiHjT JON 



J*P . 
.EJECT 



/WAJT FO" PI 



aG£ 



BX8K 



BX0K 







/TEST 
/ 

IOTST 

E24 


CUE*" AC AT 


20152 
00153 
00154 
£"0155 

00156 
00157 


106336 
106362 
750001 
700110 
740200 
740040 


JMS GEN3AN 

JMS CKMO 

CLAJCMA 

700110 

S2A 

HALT 


00160 
00161 
00162 
00163 


750001 
700210 
740200 
740040 


/ 

E29 
/ 

E26 


CLAJCMA 

700210 

SlA 

HALT 


00164 
00169 
00166 
00167 


750001 

700310 
740200 
740040 


CLAfCMA 

700310 

S2A 

HALT 


00170 
00171 
00172 
00173 


750001 
700010 
740200 
740040 


f 

E27 


CLAICMA 

700010 

S!A 

HALT 


00174 


600201 


/ 

A 


JMP 201 


00200 
00200 


600022 


f 

/ 


,LOC 200 
JMP BEGIN 






/ 

/TEST 
/ 

E27A 
/ 


IORS BIT * 


00201 
00202 
00203 
00204 
00205 
00206 
00207 


750004 
740010 
741100 
600210 
700314 
740100 
740040 


L*S 
RAL 
SPA 

JMP ,♦< 

IORS 

SMA 

HALT 


00210 
00211 
00212 
00213 


447517 
600194 
106336 
106362 


IS2 WORK3 
JMP IOTST 
JMS GENRAN 
JMS CKNQ 
•EJECT 



/GET MO. for loop 

/AC = 7777777 

/AC * 

/ERROR. AC NOT 

/AC a 777777 

/AC * 

/ERROR. AC NOT 

/AC ■ 777777 

/AC * 

/ERROR. AC NOT 

/AC » 777777 

/AC • 

/ERROR, AC NOT 



/P! INHIBITED 



/ERRORi Pi ENABLEDi 8UT IORS-0 NOT SET 

/CHECK DONE LOOPING 

/LOOP 

/GET NO. FOR NEXT TEST 



PAGE 



ee2i4 

00215. 
80216 
?0217 



00220 

00221 
00222 
00223 



00224 
00225 
00226 
00227 



00230 
00231 
00232 
00233 
00234 
00239 
00276 

00237 
00240 
00241 

00242 

00243 
00244 
00249 
00246 
00247 

00290 
00251 
019292 
00293 

00294 
00255 



BX8K 



744000 
100237 
741400 

740040 



744002 
100237 
740400 
740040 



754000 
100242 
740400 
740040 



754002 
100250 
751400 
740040 
447517 
600214 
600256 

000000 
703344 
620237 

000000 
200242 
347435 
040242 
703344 
620242 

000000 
200290 
507511 
040290 
703344 
620250 



BX8K 

/TEST tOT 3344 <DBR>, 1= 

TSOBR CL1. /LINK * 

JMS D8RX 

E2 8 HAI.T /ERROR, DBR FAILED) LINK NOT 

/TEST !OT 3344 <DBR>. L = i 

CLLICML /L « 1 
JMS DBRX 
SNL 
E29 HALT /ERROR. DBR FAILED. LINK NOT 1 

/ 

/TEST 10T 3344 (DBR), L ■ & 

/ 

CLLICL* /* c » L » 2 

JMS 08RXX 

SNL 
£30 HALT /ERROR. DBR FAILED, LINK NOT 1 

/ 

/TEST !OT 3344 (DBR). L • 1 

/ /L » !• *C « 



E3t 



/ 

DBRX 



CUICMLJCLA 

JMS DBRXXX 

CLAJSZL 

HALT 

!Si W0RK3 

JMP TSDBR 

JMP OPRAT 



703344 

JMP« DBRX 



/ERROR. DBR FAILED. LINK NOT 
/CHECK DONE LOOPING 
/LOOP 
/START INSTRUCTION TEST 

/LEAVE LINK ALONE 
/DBR 



OBRXX 

LAC OBRXX 
TAD K400K 
OAC OBRXX 
703344 
jMP» DBRXX 

/ 

OBRXXX 

LAC DBRXXX 

AND M400K 
DAC DBRXXX 
703344 
jMP« DBRXXX 
.EJECT 



/SET LINK TO A ONE 



/DBR 



/CLEAR LINK 



/DBR 



PAGE 



BX8K 



BX8K 







/TEST 


OPERATE GROUP 




00256 
00257 
00260 


106336 
106362 
777777 


f 

DPRAT jms genran 

JMS CKNO 
OPERA? LAW 17777 

1 


/GET NO, FOR LOflP OV TEST 
/AC s 777777 


00261 
00262 


741000 

740040 


/ 

E32 
• 

• TEST 

E33 
/ 

/TEST 

E34 

/ 

/TEST 

E35 

/ 

/TEST 

E36 
/ 

/TEST 

E37 

/ 

/TEST 

€38 


SKP 
HALT 


/TEST SKP 

/ERROR; SKP FAILED TC S<IP 


00263 
00264 
00265 


750000 
740200 

740040 


CLA * SZA 
CLA 
SZA 

MALT 


/AC ■ 

/ERROR) CL* OR SZA FAILED 


00266 
00267 
00270 
00271 


750000 
740100 
741000 

740040 


SMA 
CLA 
SMA 
SKP 
HALT 


/AC ■ 

/ERROR) SAME SKIPPED 


00272 
00273 

00274 


750000 
741100 
740040 


SPA 
CLA 
SPA 

HALT 


/ERROR) SPA FAILED TO SKIP 


00275 

00276 
00277 

00300 


750000 
741200 
741000 
740040 


SNA 
CLA 
SMA 
SKP 
HALT 


/ERROR) SNA SKIPPED 


00301 
00302 
00303 


744000 
741400 
740040 


S1L • CLL 
CLL 
SZL 
HALT 


/LINK « 

/ERROR) SZL BAILED TO SKIP 
/CLL FAILED TO CLEAR LINK 


00304 
00309 
00306 
00307 


744000 
740400 
741000 
740040 


SNL 
CLL 
SNL 
SKP 
HALT 
.EJECT 


/LINK « 

/ERROR) SNL SKIPPED 
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BX8K 



BX8K 







/TEST 


CLA CLL 


00310 


754000 




CLAJCLL 


00311 


740200 




S?A 


00312 


740040 


E39 
/ 

/TEST 


HALT 






CIA CLL 


00313 


734000 




CLAJCLL 


00314 


741400 




szl 


00313 


740040 


E40 
/ 

/TEST 


HALT 






SKP SPA 


00316 


730000 




CL* 


00317 


741100 




SKPJSPA 


00320 


740040 


E41 

/ 

/TEST 


HALT 






SKP SNA 


00321 


790000 




CL* 


00322 


741200 




SKPJSNA 


00323 


741000 




SKP 


00324 


740040 


E42 
/ 

/TEST 


HALT 






SKP SZL 


00323 


744000 




CLL 


00326 


741400 




SKPJSZL 


00327 


740040 


E43 


HALT 






/TEST 


SPA SNA 


00330 


750000 




CLA 


00331 


741300 




SPAISNA 


00332 


741000 




SKP 


00333 


740040 


E44 

/ 

/TEST 


HALT 






SPA S2L 


00334 


754000 




CLA1CLL 


00333 


741300 




SPAISZL 


00336 


740040 


£45 
/ 

/tEST 


HALT 






SNA S2L 


00337 


734000 




CLAJCLL 


00340 


741600 




SNAJSZL 


00341 


741000 




SKP 


00342 


740040 


E46 

y 


HALT 






/TEST 


SNAi SPAi SKPi 


00343 


734000 




CLAJCLL 


00344 


741700 




SKPJSPA1S1L' 


00343 


741000 




SKP 


00346 


740040 


E47 


HALT 
.EJECT 



/AC, LINK = 
/ERROR) AC NOT e 

/AC ANO LINK s p 
/ERROR) LINK NOT 

/ERROR) SKPJSPA FAILED TO SKIP 



/ERROR) SKPJSNA SKIPPED 

/LINK ■ 1 

/ERROR) SKPISZL FAILED TO SKIP 



/ERROR) SPAJSNA SKIPPED 

/LINK AND AC » 

/ERROR) SPAJSZL TAILED TO SKIP 

/LINK AND AC ■ 



/ERROR) SNAJSZL SKIPPED 



SZL 



SNA 



/AC AND LINK * 

/ERROR! SNAJSPAJSKPJSZL SKIPPED 



p AG! 



BX8K 



6X8K 



00347 
00350 
00351 



00392 
00353 
00354 
550355 



00356 
00357 
00360 



00361 
00362 
00363 



00364 
00365 
00366 
00367 

00370 



00371 
00372 
00373 
00374 

00375 



00376 
00377 
00400 
00401 

00402 



00403 
00404 
00405 
00406 

00407 
00410 



750000 
740300 
740040 



754000 
740500 
741000 
740040 



754000 
740600 

740040 



754000 
740700 

740040 



744000 
740002 
741400 
741000 
740040 



744000 
740002 
744000 
741400 
740040 



744000 
740002 
740002 
741400 
740040 



744000 
740002 
744002 
741400 

741000 
740040 



/TEST 



£48 

/ 

/TEST 



E49 

/ 

/TEST 



E30 
/ 

/TEST 



E31 
/ 

/TEST 



E52 



SMA SZA 
CI. A 

SMAISZA 
HALT 

SMA SN|_ 
CLA'CLL 
SMAJSNL 

SKP 
HALT 

SEA SML 
ClASCLL 
S2AJSNL 
HALT 

SMA SZA SML 
CLASCLL 
SMAJSZAJSNL 
HALT 

CML " SiL 
CLL 
CML 
SZL 

SKP 
HALT 



/TEST CLL 

CLL 

CML 

CLL 

SZL 
E53 HALT 
/ 
/TEST CML 

CLL 

CML 

CML 

SZL 
E34 HALT 
/ 
/TEST CLL CML 

CLL 

CML 

CLLICML 

SZL 

SKP 
E55 HALT 

•EJECT 



/ERRORS SMA SZA FAILED TO SKIP 



/LINK AND AC a 



/ERRORJ SMAJSNL SKIPPED 



/ERRORJ SZAISNL SKIPPED 



/ERRORl SMASSZA'SNL FAILED TO SKIP 



/LINK « 
/LINK ■ 1 



/ERROR! SZL SKIPPED OR 
/CML FAILED TO SET LINK 



/LINK • 
/LINK ■ 1 
/LINK ■ 

/ERRORl CLL TAILED TO CLEAR LINK 



/LINK ■ 

/LINK ■ 1 

/LINK « 

/ERRORl CML FAILED TO SET LINK 



/LINK * 1 
/LINK * 1 
/LINK » 1 



/ERRORJ CLLSCML FAILED TO SET LINK 



PACE 10 


BX8K 


BX8K 








/TEST 


CLL CML 


00411 


744000 




CLL 


00412 


740002 




CML 


00«13 


744000 




CLL 


00414 


744002 




CLLICMl 


00415 


741400 




SZL 


00416 


741000 




SKP 


00417 


740040 


E56 
/ 

/TEST 


HALT 






SKP SZL 


00420 


744000 




CLL 


00421 


741400 




SKPJSZL 


00422 


740040 


E57 

/ 

/TEST 


HALT 






SZL SNA 


00423 


750000 




CLA 


00424 


744002 




CLL5CML 


00425 


741600 




SZLISNA 


00426 


741000 




SKP 


00427 


740040 


E58 

* 


HALT 






/TEST 


SZL SPA 


00430 


750000 




CLA 


00431 


744002 




CLL! CML 


00432 


741500 




SZL 1 SPA 


00433 


741002 




SKP 


00434 


740040 


£59 
/ 

/TEST 


HALT 






CLA CLL CML 


00435 


754002 




CLAICLL1CML 


00436 


741400 




SZL 


00437 


741000 




SKP 


00440 


740040 


E60 

/ 

/TEST 


HALT 






CLA CLL CML 


00441 


754002 




CLA!CLL!CML 


00442 


740200 




SZA 


00443 


740040 


E61 


HALT 






/test 


SNL SZA 


00444 


754002 




CLA! CLL! CML 


00445 


740600 




SNLISZA 


00446 


740040 


E62 
/ 

/TEST 


HALT 






SNL SMA 


00447 


754002 




CLAJCLLJCML 


00450 


740500 




SNLISMA 


00451 


740040 


E63 


HALT 

.EJECT 



/LINK 
/LINK 
/LIN* 
/LINK 



/ERRQRI CLLICML FAILED TO SET LINK 

/LINK » 

/ERRORl SKPJSZL FAILED TO SKIP 



/AC « 
/LINK * I 



/ERRORl SZLISNA SKIPPED 



/AC « 

/LINK » 1 



/ERROR! SZLISPA SKIPPED 



/AC « 0, 



LINK ■ 1 



/ERRORl LINK NOT 1 

/AC » 0i LINK ■ 1 
/ERRORl AC NOT 

/AC * 0i LINK ■ 1 

/ERRORl SNLiSZA FAILED TO SKIP 

/AC > 0, LINK a i 

/ERROR) SNLISMA FAILED TO SKIP 



"AG! 



BX8K 



BX8K 



/TEST SNL S2A Sma 

00452 754002 CLAJCLLtCML 

00453 74^700 SNLISZAJSMA 

00454 740040 E64 MALT 

/ 

/TEST CMA C|_A 

00455 750000 CLA 

00456 740001 CMA 
00497 750000 CLA 

00460 741200 SNA 

00461 741000 SKP 

00462 740040 E65 HALT 

/ 

/TEST CMA SPA 

00463 750000 CI A 

00464 740001 CMA 
00469 741100 SPA 

00466 741000 SKP 

00467 740040 £66 HALT 



/TEST CMA SMA 

00470 790000 CLA 

00471 740001 CMA 

00472 741200 SNA 

00473 740040 E67 MALT 



/TEST CMA 

00474 750000 CLA 

00479 740001 CMA 

00476 740001 CMA 

00477 741200 SNA 
00900 741000 SKP 
00501 740040 E68 HALT 



/TEST CLA CMA 

00502 750001 CLAICMA 

00503 741200 SNA 

00504 740040 E69 wALT 



/AC « 2, LINK = i 

/ERRORi SnLISZA'cma TAILED Tn sk;p 



/AC * 
/AC b ONES 



/ERROR) CLA TAILED TC ClEaR 4C 



.EJECT 



/AC a 
/AC » ONES 



/ERRORI SPA SKIPPED OR 
/CMA FAILED TO SET AC BIT 



/AC i 
/AC t ONES 

/ERRORJ SNA FAILED TO SKIP 

/or cma failed to set any ac bit 



/AC * 
/AC ■ ONES 
/AC » 



/ERROR; CMA FAILED Tp 
/COMPLEMENT AC TO 



/AC ■ ONES 

/ERRORI CLAICMA FAILED TO 
/SET ANY AC BIT 



AGE 12 


BX8K 


BX8K 








/TEST 


SZA 


00505 


758001 




CLAJCMA 


00506 


740200 




SZA 


00507 


741000 




SKP 


00510 


740040 


r70 
/ 

/TEST 


HALT 






SMA 


00511 


750001 




CLA'CMA 


00512 


740100 




SMA 


00513 


740040 


E71 
/ 

/TEST 


HALT 






SKP SPA 


00514 


750001 




CLAJCMA 


00515 


741100 




SKPtSPA 


00516 


741000 




SKP 


00517 


740040 


E72 
/ 

/TEST 


HALT 






SKP SNA 


00520 


750001 




CLASCHA 


00521 


741200 




SKPJSNA 


00522 


740040 


E73 


HALT 






/TEST 


SPA SNA 


00523 


750001 




CLAJCMA 


00524 


741300 




SPAISMA 


00525 


741000 




SKP 


00526 


740040 


E74 
/ 

/TEST 


HALT 






SKP SNA SPA 


00527 


754003 




CUSCMAjCLUlCML 


00530 


741700 




SNAISPAJSKPISZL 


00531 


741000 




SKP 


00532 


740040 


E75 
/ 

/TEST 


HALT 






SMAlSiA 


00533 


750001 




CLAICMA 


00534 


740300 




SMAJSZA 


00535 


740040 


E76 

/ 
/TEST 


HALT 






SMA SZA SNL 


00536 


754003 




CLASCMAJCLLICHL 


00537 


740700 




SMAfSZAlSNL 


00540 


740040 


E77 
/ 

/TEST 


HALT 






NOP 


00541 


750001 




CLAICMA 


00542 


740000 




NOP 


00543 


740001 




CMA 


00544 


740200 




SZA 


00545 


740040 


E78 

/ 


HALT 



/AC s ONES 

/ERRORJ SZA SKIPPED 

/AC ■ ONES 

/ERROR! SMA TAILED TC SKIP 

/AC a ONES 

/ERRORl SKPJSPA SKIPPED 

/AC ■ ONES 

/ERROR* SKPISNA FAILED TO SKIP 

/AC ■ ONES 

/ERRORl SPASSNA SKIPPED 

/AC » ONESi LINK ■ 1 

/ERRORl SKPJSNAJSPAISIL SKIPPEO 

/AC t ONES 

/ERROR! SMAISZA FAILED TO SKIP 

/AC • ONE) LINK ■ 1 
/ERRORl SMAISZAlSNL 

/AC ■ ONES 

/AC « 

/ERROR! NOP ALTERED THE AC 



.EJECT 
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00546 
00547 
00550 
00551 



00552 
00553 
00554 
00555 



00556 
00557 
00560 
00561 



00562 
00563 
00564 



00565 
00566 
00567 

00570 



00571 
00572 
00573 



00574 
00575 
00576 
00577 



00600 
00601 
00602 
00603 



BX8K 



750000 
740000 
740200 
740040 



744002 

740000 
740400 
740040 



744000 
740000 
741400 
740040 



750000 
740201 
740040 



750001 

750200 
741000 
740040 



744000 
741402 
740040 



744002 
745400 
741000 
740040 



754003 
755500 
741000 
740040 



8X8K 
/TEST 



E79 
/ 

/TEST 



E80 
/ 

/TEST 



EB1 

/ 

/TEST 



E82 
/ 

/TEST 



EB3 

/ 

/TEST 



EB4 

/ 
/TEST 



E85 
/ 

/TEST 



E86 



NOP 
CLA 
NOP 
SEA 
HALT 

NOP 

ClUCML 
NOP 
SNL 
HALT 

NOP 
CLL 
NOP 
SZL 
HALT 

SEA CMA 
CLA 

SEAICMA 
HALT 

SZA CLA 

CLAJCMA 
SEAJCLA 
SKP 
HALT 

SZL CML 
CU 

SELJCML 
HALT 

S2L CLL 
CLLICML 
SILICLL 
SKP 
HALT 



/AC « 

/ERRORJ NOP SET *N AC 91 T 

/LINK = 1 

/ERROR! NOP CLEARED THE LINK 

/LINK - 

/ERROR! NOP SET THE LINK 



/AC ■ 

/AC a ONES 

/ERROR! SEA FAILED TO SKIP 



/AC » ONES 

/AC ■ 

/ERRORl SZA SKIPPED 



/LINK * 

/ERROR! SZL FAILED TO SKIP 

/LINK » 1 

/ERROR! SZL SKIPPED 



SKP SZL SPA L* CLL 

CLAICMAJCLLlCML /AC » ONESi LI^K ■ 1 

SKP!SZL!SPAICL*?CLL /AC > 0, LINK « 

SKP 

HALT /ERROR! SKPISZLJSPA SKIPPED 

.EJECT 



PAGE 14 


BX8K 


BX8K 
/TEST 


S2A SNL CMA CLL 






30604 


754002 




CUlCLUCMt 


/AC * 0, 


LINK s 1 


00605 


744601 




S?A!SNL!CMA!CLL 


/ACsQNES 


, LINK a^ 


00606 


740040 


E87 

/ 

/TEST 


HALT 


/ERROR. 


S5»A!SNL F AILFD TO SKP 






CIA Skp 






00607 


750001 




CLA'CMA 


/AC * ONES 


00610 


751000 




SKP'CL* 


/AC « 




00611 


740000 




NOP 






00612 


740200 




SEA 






• 00613 


740040 


E88 
/ 

/TEST 


HALT 
SKP CLA CHA 


/ERROR, 


CL* FAILED TO CLEAR AC 


00614 


750000 




CLA 


/AC » 




00615 


751001 




SKPiCLAlCMA 


/AC » ONES 


00616 


740000 




NOP 






00617 


740001 




CHA 






00620 


740200 




SZA 






00621 


740040 


E89 


HALT 


/ERROR, 


CL*!CMA FAILED TO 










/COMPLEMENT THE AC 






/TEST 


SKP CLL CML 






00622 


744000 




CLL 


/LINK * 





00623 


745002 




SKPICLLSCML 


/LINK « 


1 


00624 


740000 




NOP 






00629 


740400 




SNL 






00626 


740040 


E90 
/ 

/TEST 


HALT 
CMA SERIES 


/ERROR, 


CLL5CML FALEC TO SET Tl 


00627 


750001 




CLASCMA 


/AC ■ ONES 


00630 


740001 




CMA 


/AC ■ 




00631 


740001 




CHA 


/AC • ONES 


00632 


740001 




CMA 


/AC * 




00633 


740001 




CHA 


/AC ■ ONES 


00634 


740001 




CMA 


/AC • 




00635 


740200 




SZA 






00636 


740040 


E91 
/ 

/TEST 


HALT 


/ERROR, 


AC NOT CMA FAILED 






CML SERIES 






00637 


744002 




CLLTCML 


/LINK = 


1 


00640 


740002 




CML 


/LINK * 





00641 


740002 




CML 


/LINK » 


1 


00642 


740002 




CML 


/LINK « 





00643 


740002 




CML 


/LINK » 


1 


00644 


740002 




CML 


/LINK = 





00645 


741400 




S2L 






00646 


740040 


E92 


HALT 


/ERROR, 


LINK NOT CML FAILEO 


00647 


447517 


/ 


JSZ W0RK3 




/CHECK DONE LOOPING 


00650 


600260 




jMP operat 




/LOOP 


00651 


106336 




JMS GENRAN 




/GET NO. FOR ^ExT LOOP 


00652 


106362 




JMS CK^O 







.EJECT 



p AG1 



BX8K 



BX8K 



00653 


754002 


00654 


740020 


00655 


740020 


00656 


740020 


00657 


740020 


00660 


740020 


00661 


740020 


00662 


740020 


00663 


740020 


00664 


740020 


00665 


740020 


00666 


740020 


00667 


740020 


00670 


740020 


00671 


740020 


00672 


740020 


00673 


740020 


00674 


740020 


00675 


740020 


00676 


741600 


00677 


740040 



/ 

/TEST 

RTAT 



EU3 



RAR SERIES AND 

CIAJCIUCML 

RAR 

RAR 

RAR 

RAR 

RAR 

RAR 

RAR 

RAR 

RAR 

RAR 

RAR 

RAR 

RAR 

RAR 

RAR 

RAR 

RAR 

RAR 

SNA'SEL 
HALT 

.EJECT 



LINK 

/AC = 



0, LINK * 1 



/ERROR* AC BIT 17 NOT 1, OR LINK ■ 
/AFTER ROTATE SERIES 
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BX8K 


00700 


754002 


00701 


740010 


20702 


740010 


20703 


740010 


00704 


740010 


00705 


740010 


00706 


740010 


00707 


740010 


00710 


740010 


00711 


740010 


00712 


740010 


00713 


740010 


00714 


740010 


00715 


740010 


00716 


740010 


00717 


740010 


00720 


740010 


00721 


740010 


00722 


740010 


00723 


741600 


00724 


740040 


00725 


754002 


00726 


742010 


00727 


742010 


00730 


742010 


00731 


742010 


00732 


742010 


00733 


742010 


00734 


742010 


00735 


742010 


00736 


742010 


00737 


741600 


00740 


740040 


00741 


754002 


00742 


742020 


00743 


742020 


00744 


742020 


00745 


742020 


00746 


742020 


00747 


742020 


00750 


742020 


00751 


742020 


00752 


742020 


00753 


741600 


00754 


740040 



BX8K 

/TEST RAL SERJES AND LINK 

CHICLLICML /AC 

RAL 
RAL 

RAL 

RAL 

RAL 

RAL 

RAL 

RAL 

RAL 

RAL 

RAL 

RAL 

RAL 

RAL 

RAL 

RAL 

RAL 

RAL 

SNA1S2L 

HALT 



0. LINK * 1 



E114 



/ERROR) AC BIT NOT li OR LINK x i 
/AFTER ROTATE SERIES 



/TEST RTL SERIES AND LINK 



E115 



CLASCLLICML 

RTL 

RTL 

RTL 

«TL 

RTL 

RTL 

RTL 

RTL 

RTL 

SNAJS2L 

HALT 



/AC « 0. LINK 



/ERRORI AC BIT NOT li OR LINK » 1 
/AFTER ROTATE SERIES 



/TEST RTR SERIES AND LINK 



E116 



CLAJCLLICML 
RTR 

RTR 

RTR 

RTR 

RTR 

RTR 

RTR 

RTR 

RTR 

SNAISiL 

HALT 

.EJECT 



/AC • 0i LINK « 1 



/E«RORl AC BIT 17 NOT 1, C« LINK 
/AFTER ROTATE SfRlES 



P.A 



17 



BX8K 



Bx8K 



00755 
00756 
00757 
00760 
00761 
00762 
00763 
00764 
00765 
00766 
00767 
00770 
00771 
00772 
00773 
00774 
00773 
00776 
00777 



01001 

01002 



01003 
01004 
01005 
01006 
01007 
01010 
01011 
01012 
01013 
01014 
01015 
01016 
01017 
01020 
01021 
01022 
01023 
01024 
01025 
01026 
01027 
01030 



754001 
740020 
740020 
740020 
740020 
740020 
740020 
740020 
740020 
740020 
740020 
740020 
740020 
740020 
740020 
740020 
740020 
740020 
740020 
740003 
741600 
740040 



734001 
740010 
740010 
740010 
740010 
740010 
740010 
740010 
740010 
740010 
740010 
740010 
740010 
740010 
740010 
740010 
740010 
740010 
740010 
740002 
741500 
740040 



/pop-is basic exerciser - tape 2 
/ 

/RAR SERIES 

RTSS CLAJCMAJCLU /AC = ONES. LINK « 
RARj RAR) RARj RAR 



RARj RAR) RARi RAR 



RARj RARi RARi RAR 



RAR) RARI RAR) RAR 



RARi RAR 

CMAICMU 
SNAISZL 

E140 HALT 

/ 
/ 

/TEST RAL SERJES TEST 
CLAJCMAJCU 
RAD RAU 



/AC f 000001, LINK ■ 

/ERROR) AC BIT 17 NOT 1, OR LINK 
/AFTER ROTATE SERIES 



/AC • ONESi LINK • 
RAD RAL 



RAD RALI RAD RAL 



RALl RALI RAD RAL 



RAD RAL» RAD RAL 



RAD RALI CML /AC > 377777, LINK = 



SPAJSHL 
E141 HALT 

.EJECT 



/ERROR) AC BIT 3 NOT 0, OR LINK * / 
/AFTER ROTATE Se«1ES 
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BX8K 


01031 


754001 


01032 


742010 


01033 


742010 


01034 


742010 


01035 


742010 


01036 


742010 


01037 


742010 


01040 


742010 


01041 


742010 


01042 


742010 


01043 


740002 


01044 


741500 


01049 


740040 


01046 


754001 


01047 


742020 


01050 


742020 


01051 


742020 


01052 


742020 


01053 


742020 


01054 


742020 


01055 


742020 


01056 


742020 


01057 


742020 


01060 


740003 


01061 


741600 


01062 


740040 



BX8K 

/TEST RTL SERIES 

CLAJCMAJCLL 
RTU RTL * 



E142 



RTLl 

SPA'SEL 

HALT 



CML 



/TEST RTR SERIES 

CLA'CMAJCLL 
RTR| RTRJ 



E143 



RTR 

CMASCML 
SNAJS2L 
HALT 

.EJECT 



/AC » ONESi LINK » ? 
RTL! «TL 



RTLJ RTL* RTU RTl 



/LINK - 



/ERRQRJ AC SIT f? NOT 0i OR LINK 
/AFTER ROTATE SERIES 



/AC a ONES. LINK » 
RTRJ RTR 



RTRj RTRI RTRJ RTR 



/AC ■ 000001. LINK f 

/ERRORJ AC BIT 17 NOT 1, OR LINK « 
/AFTER ROTATE SERIES 
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BX8K 


BXBK 








/ 

/TEST 


RALJSNA 


01063 


754002 




CLA!CLL!CML 


01(564 


741210 




RALtSNA 


01065 


741000 




SKP 


01066 


740040 


E162 
/ 

/TEST 


HALT 






RARISNA 


01067 


754002 




CLA!CLl!CML 


01070 


741220 




RARtSNA 


01071 


741000 




SKP 


01072 


740040 


E163 
/ 

/TEST 


HALT 






RTl"SNA 


01073 


754002 




CLA5CLL1CML 


01074 


743210 




RTLISNA 


01075 


741000 




SKP 


01076 


740040 


El*4 


HALT 






/TEST 


RTRISNA 


01077 


754002 




CLAICLLJCML 


01100 


743220 




RTRISNA 


01101 


741000 




SKP 


01102 


740040 


E165 


HALT 






/TEST 


RALISNA 


01103 


754002 




CLAICLLJCML 


01104 


740020 




RAR 


01105 


741210 




SNAJRAL 


01106 


740040 


E166 
/ 

/TEST 


HALT 






RARJSNA 


01107 


754002 




CLAICLLJCML 


01110 


740010 




RAL 


01111 


741220 




SNAJRAR 


01112 


740040 


E167 


HALT 
.EJECT 



/AC s 0, Ll^K = i 



/ERROR; SMA SKIPPED 



/AC » 0, LINK e i 



/ERRORJ SNA SKIPPED 



/AC ■ 0, LINK e i 



/ERROR! SNA SKIPPED 



/AC ■ 0, LINK = i 



/ERROR! SNA SKIPPED 



/AC • 0. LINK ■ l 
/AC a 400000 

/ERROR. SNA FAILED TO SKIP 



/AC ■ 0, LINK i 1 
/AC ■ 000001 

/ERRORJ SNA FAILED TO SKIP 



AGE 20 


BX8K 


BXBK 








/TEST 


RTL1SNA 


01113 


754002 




CL*!CLL!CML 


P1U4 


742020 




RTR 


&1115 


743210 




SNAJRTL 


01116 


740040 


E168 


HALT 






/TEST 


RTRISNA 


01117 


754002 




CLA!CLL!CML 


01120 


742010 




RTL 


01121 


743220 




SNAJRTR 


01122 


740040 


E169 

/ 

/TEST 


HAUT 






CLL5SNAJRAR 


01123 


754001 




CL*tCMA|CLL 


01124 


751220 




CLAJSNAJRAR 


01125 


740040 


E170 


HALT 


01126 


447517 




ISZ WORKS 


01127 


600653 




JMP RTAT 


01130 


106336 




JHS GENRAN 


01131 


106362 




JMS CKNQ 



/AC « 0# LINK s i 
/AC » 200000 

/ERROR) SNA FAILED TO SKIP 



/AC « 0i LINK s j 



/ERRORJ SNA FAILED TO SKIP 



/AC • ONESi LINK f 
/ERROR! SNA FAILED TO SKIP 

. /check done: LOOPING 
/LOOP 
/GET NO FOR K ! EXT LOOP 



.EJECT 



pag! 



BXSk 



BX8K 







/ 

/TEST 


LAW 760000 






01132 


754000 


TL.AW 


CLA'CLL 


/AC s 




01133 


760000 




LAW 00*00 


/AC s 760000 




31134 


740010 




RAL 


/AC = 740000 




01135 


744400 




SNLICLL 


/LINK s 1 




31136 


740040 


E206 


HALT 


/ERROR; AC NOT NOT 
/LAW 760000 FAILED 


A 1, 


01137 


740010 




RAL 


/AC * 7000F0 




01140 


744400 




SNLICLL 


/LINK s l 




01141 


740040 


E207 


HALT 


/ERROR? AC BIT i NOT 
/LAW 760000 FAILED 


A 1 


01142 


740010 




R*L 


/AC s 600000 




01143 


744400 




SNLICLL 


/LINK = 1 




01144 


740040 


E208 


HALT 


/ERROR) AC BIT 2 NOT 
/LAW 760000 FAILED 


A 1 


01145 


740010 




RAL 


/AC ■ 400000 




01146 


744400 




SNLJCLL 


/LINK « 1 




01147 


740040 


E209 


HALT 


/ERROR) AC BIT 3 NOT 
/LAW 760000 TAlLFD 


A 1 


01150 


740010 




RAL 


/AC ■ 000000 




01151 


744400 




SNLICLl, 


/LINK « 1 




01152 


740040 


E210 


HALT 


/ERRORl AC BIT 4 NOT 
/LAW 760000 FAILED 


A 1 


01153 


740200 




SZA 


/AC ■ 000000 




01154 


740040 


E211 

/ 

/TEST 


HALT 


/ERRORl AC BITS 5»17 
/LAW 760000 FAILED 


NOT ( 






LAW 760000, AC i 


* ONES 




01155 


754001 




CLAICMAJCLL 


/AC ' ONESi LINK * 




01156 


760000 




LAW 00000 


/AC ■ 760000 




01157 


741400 




SIL 






91160 


740040 


E212 


HALT 


/ERRORf LINK NOT A 0. 


LAW 


01161 


740010 




RAL 


/AC • 740000 




01162 


744400 




SNLICLl. 


/LINK ■ 1 




01163 


740040 


E213 


HALT 


/ERRORl AC BIT NOT 
/LAW 760000 FAILED 


A 1. 


01164 


740010 




RAL 


/AC « 700000 




01165 


744400 




SNLICLL 


/LINK ■ 1 




01166 


740040 


E214 
/ 


HALT 


/ERRORl AC 8IT 1 NOT 
/LAW 760000 FAILED 


A 1 


01167 


740010 


RAL 


/AC > 600000 




01170 


744400 




SNLJCLL 


/LINK » 1 




01171 


740040 


E215 


HALT 


/ERRORl AC SIT 2 NOT 
/LAW 760000 FAlLEO 


A 1 


01172 


740010 




RAL 


/AC ■ 4000A0 




01173 


744400 




SNLICLL 


/LINK = 1 




01174 


740040 


E216 


HALT 


/ERROR) AC BIT 3 NOT 


A 1. 


01175 


740010 




RAL 


/AC t 000000 




01176 


744400 




SNLICLL 


/LINK » 1 




01177 


740040 


E217 


HALT 


/ERROR) AC BIT 4 NOT 


A 1» 


01200 


740200 




SZA 


/AC 1 00P0F0 




01201 


740040 


E218 


HALT 


/ERROR) AC BITS 5-17 
/LAW 760P0? FAILED 


NOT Z 



LAW 76R0J50 FaIlEC 



LA* 760020 FAILED 
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BX8K 



BX8K 



.EJECT 



page 23 



01202 
P12P3 

01205 
01206 

01207 
01210 



01211 
01212 
01213 
01214 
01215 
01216 
01217 



01220 
01221 
01222 
01223 
01224 
01225 
01226 



BX8k 



754000 
777777 

740001 
740200 
740040 

741400 
740040 



754002 
777777 
740001 
740200 
740040 
740400 
740040 



754001 
777777 

740001 
740200 
740040 
741400 
740040 



BX8K 
/TEST 

E219 



E220 

/ 

/TEST 



E221 

E222 
/ 

/TEST 



E223 
E224 



LAW 777777, ACs0, 1 i0 



CLAJCU 

LAW 17777 

CMA 

S?A 

HALT 



S2L 



HALT 



CLAICLLICML 
LAW 17777 
CMA 
SZA 

HALT 

SNL 

HALT 



CUA!CMA!CLU 

LAW 17777 

CMA 

SZA 

HALT 

SZL, 

HALT 

.EJECT 



/AC 



/AC * 76f2?e 



/ERROR. AC NOT 
/LAW 17777 FAILED 
/AC « 400760 

/LINK NOT e 



LAW 777777, AC=0, L »l 



/AC « 

/ERROR, LI*K NOT 
/ERROR, LI^K NOT 



LAW 777777, AC«1, j.,10 



/AC * 



/ERROR. AC NOT 
/AC s 100760 
/ERROR, LINK NOT 



page 2a 


8X8K 


01227 


754003 


21230 


777777 


P1231 


740001 


01232 


740200 


01233 


740040 


01234 


740400 


01235 


740040 


01236 


447517 


01237 


601132 


01240 


106336 


01241 


106362 



BXBK 

/TEST LAW 777777, AC«1, i*\ 

Cl*!CMA!CLL!CML /AC 

L AW 17777 

CMA 

SZA 
E225 HALT /ERROR, *C NOT p 



claicmaicll: 


ICML 


/AC « 


LAW 17777 






CMA 






SZA 






HALT 




/ERROR, 


SML 






HALT 




/ERROR. 


ISH W0RK3 






JMP TLAW 






JMS GENRAN 






JHS CKNO 






.EJECT 







E226 HALT /ERROR* LINK NOT 1 

/C*ECK DOME LOOPING 

/LOOP 

/GET NO, FOR NEXT LOOP 



P*£ 



'25 



BX8K 



BX8K 



01242 
01243 
01244 
01245 
01246 
01247 

01250 
01251 
01252 
01253 
01254 
01255 

01256 
01257 
01260 
01261 
01262 
01263 

01264 
01265 
01266 
01267 
01270 
01271 



01272 
01273 
01274 
01275 
01276 
01277 
01300 

01301 
01302 
01303 
01304 
01305 
01306 
01307 



754000 
207411 
740200 
740040 
741400 
740040 

754002 
207411 
740200 
740040 
740400 
740040 

754001 
207411 
740200 
740040 
741400 
740040 

754003 
2074H 

740200 
740040 
740400 
740040 



754000 
207454 

740001 
740200 
740040 
741400 
740040 

754002 
207454 
740001 

740200 
740040 
740400 
740040 



/TEST 

/ 

LACK 



E258 

E259 
/ 



£260 

E261 
/ 



E262 

E263 
/ 



E264 

E265 
/ 

/TEST 
/ 



E266 

E267 
/ 



E268 
E269 



LAC 0»S 

CLAiCLL 

LAC K0 

SZA 

HALT 

S2L 

HALT 

CLA!CLL!CML 

LAC K0 

SZA 

HALT 

SNL 

HALT 

CLAJCHAJCLL 
L*C K0 
SZA 

HALT 

S2L 

HALT 

CLAJCMAJCLL5CML 

LAC K0 

SZA 

HALT 

SNL 

HALT 

LAC 1»S 

CLAJCLL 

LAC K7S 

CMA 

SZA 

HALT 

SiL 

HALT 

CLAfCLLtCML 

LAC K7S 

CMA 

SZA 

HALT 

SNL 

HALT 

.EJECT 



/AC a 0, LINK « ? 
/000?00 

/ERROR. AC MOT ? AFTER LAC K? 

/ERROR) LINK NOT AFTER |_*C KP 

/AC » 0i LINK = 1 

/ERRORJ AC NOT 

/ERROR. LINK NOT 1 AFTER LAC K0 

/AC ■ l»Si LIN s 

/ERROR. AC MOT ? AFTER LAC K0 
/ERROR. LINK NOT AFTER LAC K0 
/AC » lis, LINK a l 

/ERROR, AC NOT 
/ERROR, LINK NOT 1 



/AC • 0, LINK ■ 
Z777777 



/ERROR, AC NOT LAC K7S FAILED 
/ERROR, LINK NOT AFTER LAC K7S 
/AC a 0, LINK « 1 

/ERROR, AC NOT 

/ERROR, LINK NOT 1 AFTER LAC K7S 
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BX8K 


BX8K 




01310 


754001 




CLAJCHA'CLL 


01311 


207454 




LAC K7S 


01312 


740001 




CMA 


01313 


740200 




S2A 


01314 


740040 


E270 


HALT 


01315 


741400 




SZl 


01316 


740040 


E271 

j 


HALT 


01317 


754003 


/ 


CLAJCHA'CLLtCML, 


01320 


207454 




LAC K7S 


01321 


740001 




CMA 


01322 


740200 




SHA 


01323 


740040 


E272 


HALT 


01324 


740400 




SNL 


01325 


740040 


/ 


HALT 


01326 


750000 


CLA 


01327 


207467 




LAC K101 


01330 


207466 




LAC K010 


01331 


207454 




LAC K7S 


01332 


740001 




CMA 


01333 


740200 




SZA 


01334 


740040 


E273 


HALT 


01335 


447517 




IS1 WORKS 


01336 


601242 




JMP LACK 


01337 


106336 




JHS GENRAN 


01340 


106362 


/ 

/TEST 
/ 

ANOAC 


JMS CKNO 






AND 


01341 


750000 


CLA 


01342 


5074H 




AND K0 


01343 


7-40200 




SZA 


01344 


740040 


E274 

/ 


HALT 


01345 


750001 


CLAJCMA 


01346 


507411 




AND K0 


01347 


740200 




SZA 


01350 


740040 


E275 
/ 


HALT 


01351 


750000 


CIA 


01352 


507454 




AND K7S 


01353 


740200 




SZA 


01354 


740040 


E276 

/ 


HALT 


01355 


750001 


CLA'CMA 


01356 


507454 




AND K7S 


01357 


740001 




CMA 


01360 


740200 




SZA 


01361 


740040 


E277 


HALT 
.EJECT 



/AC « 1»S, LINK . pi 

/ERROR, AC NOT e, LAC K7S FAILED 
/ERROR. LINK NOT 1 AFTER Lac K7S 
/AC = l'S, LINK s i 

/ERROR. AC NOT ? 

/ERROR. LINK NOT 1 AFTER LAC K7S 



/AC « 525252 
/AC » 252525 
/AC • 777777 



/ERROR. AC NOT 

/CHECK FOR DONE LOOPING 

/LOOP 
/GET NO, FOR LOOP 



/AC • 

/ERROR, AC NOT ?! AFTER AND K0 
/AC » l'S 

/ERROR. AC NOT AFTER AND K? 
/AC a 

/ERROR, AC NOT AFTER AND K7S 
/AC a l'S 

/ERROR. AC NOT AFTr» AND K7S 
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BXBK 


BX8K 








/SEQUENTIAL AND 


01362 


754002 


/ 


CLA'CLUCML 


01363 


507411 




AND K0 


01364 


507454 




AKO K7S 


01365 


507467 




AND K101 


01366 


507466 




AND K010 


01367 


740001 




CMA 


01370 


507411 




AND K0 


01371 


507454 




AND K7S 


01372 


507467 




AND Kl^l 


01373 


507466 




AND K010 


01374 


740200 




SZA 


01375 


740040 


E278 


HALT 


01376 


740400 




SML 


01377 


740040 


E279 


HALT 


01400 


447517 




1S2 W0R«3 


01401 


601341 




JWP ANDAC 


01402 


106336 




J*S GENRAN 


01403 


106362 


/ 

/TEST 


JMS CKNQ 






XOR 


01404 


750000 


XORAC 


CLA 


01405 


247411 




XOR K0 


01406 


740200 




SZA 


01407 


740040 


E280 


HALT 


01410 


750001 


f 


CLAICMA 


01411 


247411 




XOR K0 


01412 


740001 




CMA 


01413 


740200 




SZA 


01414 


740040 


E281 


HALT 


01415 


750000 


/ 


CLA 


01416 


247454 




XOR K7S 


01417 


740001 




CMA 


01420 


740200 




SZA 


01421 


740040 


E282 


HALT 


01422 


750001 


/ 


CLAICMA 


01423 


247454 




XOR K7S 


01424 


740200 




SZA 


01425 


740040 


E283 


HALT 
.EJECT 



/AC « 0, LIN* 



/ERROR, AC NOT p 

/ERROR, LINK NOT 1 

/CHECK TOR DONE LOOPING 

/LOOP 
/GET NO, FOR NEXT LOOP 



/AC * 

/ERROR, AC NOT ? AFTER XC« K? 
/AC « i'S 

/ERROR, AC NOT ? 

/AC « 
Z777777 

/ERROR, AC NOT {> AFTER XO* K7S 
/AC a 1'S 

/ERROR. AC NOT e AFTER XOR «7S 
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BX8K 


BX8K 










/SEQUENTIAL. XOR 




01426 


750000 


/ 


CIA 


/AC » 


01427 


247467 




XOR K101 


Z525252 


S51430 


247466 




XOR K010 


Z252525 


01431 


2474H 




XOR K0 


Z000000 


01432 


247454 




XOR K7S 


/777777 


01433 


247466 




XOR K010 




01434 


247467 




XOR K101 




01433 


247467 




XOR K101 




01436 


247466 




XOR K010 




01437 


740200 




S2A 




01440 


740040 


E284 


HALT 


/ERROR. AC NOT 


01441 


447517 


/ 


ISZ W0RK3 


/CHECK FOR DONE LOOPING 


01442 


601404 




JMP XORAC 


/LOOP 


01443 


106336 




JMS GENRAN 


/GET NO, FOR NEXT LOOP 


01444 


106362 


/ 

/TEST 
/ 

TAOAC 


JMS CKNO 
TAD 




01445 


754000 


CLAJCLU 


/AC » 0. LINK * ?, 


01446 


347411 




TAD K0 




01447 


740200 




SZA 




01450 


740040 


E285 


HALT 


/ERROR, AC NOT AFTER TAD K0 


01451 


741400 




SZL 




01452 


740040 


EZ86 


HALT 


/ERROR, LINK NOT AFTER TAD Ki 


01453 


754001 


/ 


CLAJCHAJCLL 


/AC ■ 1«S, LINK ■ 


01454 


3474H 




TAD K0 




01455 


740001 




CMA 




01456 


740200 




SIA 




01457 


740040 


E287 


HALT 


/ERROR, AC NOT 


01460 


741400 




SZL 




01461 


740040 


E286 
/ 


HALT 


/ERROR, LINK NOT 


01462 


754002 


CLAiCLLiCML 


/AC ■ 0| LINK * 1 


01463 


347454 




TAD K7S 


/777777 


01464 


740001 




CMA 




01465 


740200 




SZA 




01466 


740040 


E289 


HALT 


/ERROR, TAO K7S FAILED 


01467 


740400 




SNL 




01470 


740040 


£290 
/ 


HALT 


/ERROR, CARRY OL'T OR OVERFLOW 
/FAILED. LINK NOT 


01471 


754001 


CLAJCMAJCUL 


/AC « 1»S, LINK * 


01472 


347454 




TAD K7S 




01473 


740020 




RAR 




01474 


740001 




CMA 




01475 


740200 




SZA 




01476 


740040 


E291 


HALT 


/ERROR. TAD K7S TO 1'S FAILED 


01477 


741400 




SZL 




01500 


740040 


E292 


HALT 
.EJECT 


/ERROR, LINK Not 7i 



PAGE 79 



BX8K 



BX8K 



/TEST OVERFLOW 



B15BH 

01502 
01503 
01504 
01505 
01506 

01507 
01510 
01511 
01512 
01513 
01514 



01515 
01516 
01517 
01520 
01521 
01522 
01523 
01524 



01525 
01526 
01527 
01530 
01531 
01532 
01533 
01534 



01535 
01536 
01537 
01540 
01541 
01542 
01543 



754001 
347412 

740200 
740040 
740400 
740040 

754003 
347412 

740200 
740040 
741400 

740040 



754000 
347466 
347467 
740001 
740200 
740040 
741400 
740040 



754002 
347467 
347466 

740001 
740200 
740040 
740400 
740040 



754000 
207466 
347467 
247466 
347466 
347412 
740400 



E293 

E294 

/ 



E295 

E296 
/ 



CLAJCMAJCLL 

TAD Kl 

S2A 

HALT 

SNL 

HALT 



/AC b lis, LINK s i 
/000001 

/ERROR. AC MOT ? AFTER TAD Kl 

/ERROR, LINK NQT 1 OVERFLOW FAILED 



CLA!CMAJCLI!CML /AC » l'S, LINK e 1 

TAD Kl 

SZA 

HALT /ERROR. AC NOT p 

S2L 

HALT /ERROR. LINK NOT OVERFLOW FAILED 



/TAD 525252, AC s 252525, LINK « 
/ 



E297 

E298 
/ 



CLAICLL 
TAD K010 
TAD K101 
CMA 
SZA 
HALT 
S1L 
HALT 



/AC t lis 

/ERROR. AC NOT $ 
/ERROR. LINK NOT 



/TAD 252525, AC s 525252i LINK • 1 
/ 

CLA!CLL!CML 

TAD K101 

TAD K010 /AC » lis 

CMA 

SZA 
E299 HALT /ERROR, AC NOT 

SNL 
E300 HALT /ERROR, LINK NOT 

/ 

/SEQUENTIAL LAC, TAO, XOR 
/ 

CLA'CLL /AC • 0, LINK ■ 

LAC K010 

TAO K101 /AC « lis 

XOR K010 

TAD K0J0 /AC » 1»S 

TAO Kl 

SNL 

.EJECT 



PAGE 30 


BX8K 


01544 


740040 


01545 


207467 


01546 


247454 


01547 


347467 


01550 


247454 


01551 


740200 


01552 


740040 


01553 


447517 


01554 


601445 


01555 


106336 


01556 


106362 



BX8K 



E301 



01557 

01560 
01561 
01562 
01563 
01564 
01565 
01566 



01567 
01570 
01571 
01572 
01573 

01574 
01575 
01576 



01577 

01600 
01601 
01602 
01603 
01604 
01605 
01606 



01607 
01610 
01611 
01612 
01613 
01614 
S»1615 
01616 



754000 
307446 
307453 

740001 
740200 
740040 
741400 
740040 



754000 
307447 
307452 
740001 
740200 
740040 
741400 
740040 



754000 

307450 
307451 
740001 
740200 
740040 
741400 
740040 



754000 
307451 
307450 
740001 
740200 
740040 
741400 
740040 



E302 



/ 

/ 

/TEST 

/TEST 

AODAC 



E303 

E304 
/ 

/TEST 



E305 

£306 

/ 

/TEST 



E307 

E308 

/ 

/TEST 



E309 
E310 



HA1.T 

LAC K101 

XOR K7S 

TAD K101 

XOR K7S 

SZA 

HALT 

ISZ W0RK3 

JMP TADAC 

JMS GENRAN 

JMS CKNO 



ADD 

ADO K1S TO K6S, 

CLAfCLL 

ADO K1S 

ADD K6S 

CMA 

SZA 

HALT 

SZL 

HALT 

ADD K2S To K5S, 

CLAICLL 
ADO K2S 
ADD K5S 
CMA 
S1A 
HALT 
SH 
HALT 

AOD K3S TO MS, 
CLAICLL 
ADO K3S 
ADD K4S 

CMA 
SiA 

HALT 

SIL 

HALT 

AOO K4S TO K3S, 
CLAICLL 
AOD K4S 
ADD K3S 
CMA 
SZA 
HALT 
SZL 
HALT 
•EJECT 



/ERROR, LINK NOT 1 



/ERROR. AC NOT e 
/CHECK DONE LOOPING 

/LOOP 
/GET NO, FOR NEXT LOOP 



LINK » 

/AC * 0, LINK • g 

/Him 

•666666 
/AC « 

/ERROR! ADD KlS TO K6S TAILED 

/ERROR! LINK NOT A0 

LINK = 

/AC , LINK = 

/2S222 

/55555S 

/AC * 

/ERROR! ADD K2S TO K5S FAILED 

/ERROR! LINK NOT A 

LINK » 

/AC, LINK >0 
/3S333 

/444444 
/AC • 

/ERROR! AOO K3S TO K4S FAILED 

/ERROR! LINK NOT A0 

LINK « 

/AC, LINK s0 

,444444 

/333333 

/AC » 

/ERROR) AND MS TO K3S FAILED 
/ERROR) LI ^K NOT A0 
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01617 
P162Z 
01621 
01622 
01623 
01624 
01625 
01626 



01627 
01630 
01631 
01632 
01633 
01634 
01635 
01636 



01637 
01640 
01641 
01642 
01643 
01644 
01645 
01646 



01647 
01650 
01651 
01652 
01653 
01654 
01655 
01656 



01657 
01660 
01661 
01662 
01663 
01664 
01665 
01666 



BX6K 



754000 
307452 
307447 

740001 
740200 
740040 
741400 

740040 



754000 
307453 
3074*6 
740001 
740200 
740040 
741400 
740040 



754000 
307454 
3074H 
740001 
740200 
740040 
741400 
740040 



754001 
207467 
307466 
740001 
740200 
740040 
741400 
740040 



744000 
207466 
307467 
740001 
740200 
740040 
741400 
740040 



BX8K 
• TEST 



E311 

E312 
/ 

/TEST 



E313 

E314 

/ 

/TEST 



E315 

E316 
/ 

/TEST 



E317 

E318 
/ 

/TEST 



E319 
E320 



ADO K5S TO K2S, 
CLA1CLL 
ADD K5S 
ADD K2S 
CMA 
S?A 
HALT 
SZL 
HALT 

AND K6S TO KlS 
CLAlCLt, 
ADO K6S 
ADD KlS 
CMA 
SZA 
HAI.T 
SZL 
HALT 

ADO K7S TO K0S 
CLA1CLL 
ADD K7S 
ADD K0 
CMA 
SZA 
HALT 
S?L 
HALT 

ADD 252525, AC 
CLLICLAJCMA 
LAC K101 

ADD K010 

CMA 

S2A 

HALT 

SZL 

HALT 

ADD 525252, AC 

CLL 

LAC K010 

ADO K101 

CMA 

SZA 

HALT 

SZL 

HALT 

.EJECT 



LlMK * 

/AC, LINK = 
/5S5555 
/2222S2 
/AC s 

/ERROR! ADD K5S TO K2S FAJLEO 

/ERROR! LINK NOT AP 

, LINK e 

/AC, LINK ■ 

Z666666 

/llllll 

/AC * 

/ERRORI ADD K6S TO KlS FAILEn 

/ERROR! LINK NOT A Z 

i LINK * 

/AC, LINK e 
Z777777 

Z000000 
/AC « 

/ERROR! ADO K?S TO KPS FAILED 

/ERROR! LINK NOT A 

s 525252, LINK * 

/AC ■ ONESi LINK * 

/AC « 525252 

/AC » 252525 
/AC • 

/ERRORJ ADD K101 TO K010 FAILED 

/ERROR! LINK NOT A 

s 252525, LINK « 
/LINK ■ 

/AC « 252525 
/525P52 

/AC • 

/ERROR! ADD K010 TO K101 FAILED 
/ERROR! LINK NOT A0 
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01667 
01670 
04671 
01672 
01673 
01674 
01675 
01676 
01677 



01700 
01701 
01702 
01703 
01704 
01705 
01706 
01707 
01710 



01711 
01712 
01713 
01714 
01715 
01716 
01717 
01720 
01721 



01722 
01723 
01724 
01725 
01726 
01727 
01730 
01731 
01732 



BX8K 



754001 
207435 
307454 
507454 
247435 
740200 
740040 
741400 
740040 



754001 
207441 
307441 
507454 
247435 
740200 
740040 
740400 
740040 



754003 
207343 
307454 
507454 
247343 
740200 
740040 
740400 
740040 



754001 
207434 

307454 
507454 
247434 

740200 
740040 
741400 
740040 



BX8K 
/TEST 



ADO K7S. AC b K400K, LINK " 



E321 

E322 

/ 

/TEST 



ClAtCMAICLL 

LAC K400K 

ADD K7S 

AND K7S 

XOR K400K 

S2A 

HALT 

SZL 

HALT 



/AC » ONESi LINK ■ 

/AC * 40{>K 
/ONES 
/AC s 400K 

/AC * 

/ERROR; ADD«e To K400K FAILED 

/ERROR) LINK NOT A 0, CARRY TAILED 



ADD K200K, AC ? K200K ( LINK * 

CLA'CMAiCLL /AC » ONESi LINK * 

/AC » 20?iK 
/ONES 
/AC ■ 400K 



E323 

E324 

/ 

/TEST 



LAC K200K 
ADD K200K 
AND K7S 
XOR K400K 
SEA 
HALT 
SNL 
HALT 



/AC ■ 

/ERROR) AOO K200K TO K200K FAILED 

/ERRORI LINK NOT A ONES, CARRY FAILED 



ADD K7Si AC » K100K» LINK ■ 1 

CLAJCMAJCLLJCML /AC « ONESi LINK » 1 



E325 

E326 

/ 
/TEST 



LAC K100K 
AOO K7S 
ANO K7S 
XOR K100K 
S2A 
HALT 
SNL 
HALT 



/AC « 100K 
/ONES 
/AC > 100K 

/AC ■ 

/ERROR) ADO«0 To K100K FAILED 

/ERROR! LINK NOT A ONE, LINK RESET 



ADO K7Si AC ■ K40K, LINK e 

CLAICHASCLL /AC ■ ONESi LINK § 



E327 

E328 



LAC K40K 
ADD K7S 
AND K7S 
XOR K40K 
SZA 
HALT 
SHL 
HALT 
•EJECT 



/AC a 40K 
/ONES 
/AC ■ 40K 

/AC » 

/ERROR} ADD-8 To K40K FAILED 

/ERROR! LINK NOT A 2ERO, CARRY FAILED 



^AGE WZ 



01733 
01734 
31735 
01736 
01737 
01740 
01741 
01742 
01743 



01744 
01745 
01746 
01747 
01750 
01751 
01752 
01753 
01754 



01755 
01756 
01757 
01760 
01761 
01762 
01763 
01764 
01765 



01766 
01767 
01770 
01771 
01772 
01773 
01774 
01775 
01776 



BX8K 



754001 
207440 
307454 
507454 
247440 
740200 
740040 
741400 
740040 



754001 
207437 
307454 
507454 
247437 
740200 
740040 
741400 
740040 



754001 
207430 
307454 
507454 
247430 
740200 
740040 
741400 
740040 



754001 
207426 
307454 
507454 
247426 
740200 
740040 
741400 
740040 



BX8K 
/TEST 



£329 

£330 
/ 

/TEST 



E331 

E332 

/ 

/TEST 



E333 

E334 
/ 

/TEST 



E335 
E336 



ADO K7Si AC « 

ClAtCMAjCLL 

LAC K20K 

ADD K7S 

AND K7S 

XOR K20K 

SEA 

HALT 

521 

HALT 

AND K7Si AC s 
CLAICMAICLL 
L*C K10K 
ADO K7S 
AND K7S 
XOR K10K 
Si* 
HALT 
SEL 
HALT 

ADD K7Si AC « 
CLAICMAJCLL 
LAC K4K 
ADD K7S 
AND K7S 
XOR K4K 
SEA 
HALT 
SZL 
HALT 

ADD K7S» AC ■ 

CLAICMA'CLL 
LAC K2K 

ADD K7S 
AND K7S 
XOR K2K 
SEA 

HALT 
SHl 
HALT 
.EJECT 



K20K, LINK ■ 

/AC « ONES* LINK • 

/AC « 20k 
/ONES 
/AC * 20K 

/AC ■ 

/ERRORl ADD-0 To K20K FAILED 

/ERROR! LINK NOT A ZERO, CARRY FARED 

K10KJ LINK « 

/AC ■ ONES« LINK ■ 

/AC ■ 10K 
/ONES 
/AC ■ 10K 

/AC ■ 

/ERRORJ ADD»B To K10K FAILED 

/ERROR! LINK NOT A ZERO, CARRY FAILED 

K4Ki LINK ■ 

/AC » ONESi LINK P 
/AC « 4K 
/ONES 
/AC ■ 4K 

/AC • 

/ERROR! ADD-0 To K4K FAILED 

/EBRORl LINK NOT A ZERO, CARRY FAILED 

K2Ki LINK a 

/AC « ONES* LINK * 

/AC ■ 2K 
/ONES 

/AC « 2K 

/AC ■ 

/ERROR! ADD»0 To K2K2 FAILED 

/ERROR! LINK NOT A EF.RO, CARRY FAILED 
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BX8K 


01777 


754001 


0200? 


207424 


02001 


307454 


02002 


507454 


02003 


247424 


02004 


740200 


02005 


740040 


02006 


741400 


02007 


740040 


02010 


754001 


02011 


207425 


02012 


307454 


02013 


507454 


02014 


247425 


02015 


740200 


02016 


740040 


02017 


741400 


02020 


740040 


02021 


447517 


02022 


601557 


02023 


106336 


02024 


106362 



BX8K 

/TEST ADD K7S. AC « 
CLAJCMAJCLL 

lAC K1K 
ADD K7S 
AND K7S 
XOR K1K 
S2A 

E337 HALT 
S2L 

E338 WALT 

/ 

/TEST ADD K7Si AC * 

CUJCMAICLL 
LAC K400 
ADD K7S 
AND K7S 
XOR K400 
SEA 

E339 HALT 
SZl 

E340 HALT 

ISZ W0RK3 
JMP AOOAC 
JMS GENRAN 
JMS CKNO 
•EJECT 



KlK, LINK s 

/AC » ONESi LINK « 

/AC * IK 
/ONES 

/AC s IK 

/AC ■ 

/errcr; aod*0 to kik failed 

/errorj link not a zero, carry failed 

K400, LINK ■ 

/AC » ONES» LINK « 

/AC * 400 
/ONES 
/AC • 400 

/AC P 

/ERRORl AOO«0 To K400 FAILED 

/E&RORj LINK NOT A ZERO, CARRY FAILED 
/CHECK DONE LOOPING 
/LOOP 
/GET NO, FOR NEXT LOOP 



pag' 



BX8k 



BX8K 



02025 
02026 
02027 
02030 
02031 
02032 
02033 
02034 
02035 



!»2036 
02037 
02040 
02041 
02042 
02043 
02044 
02045 
02046 



02047 
02050 
02051 
02052 
02053 
02054 
02055 
02056 
02057 



02060 
02061 
02062 
02063 
02064 
02065 
02066 
02067 
02070 



02071 
32072 
02073 
02074 
02075 
02076 
02077 
02100 
02101 



754031 
207421 
307454 
507421 
247421 
740200 
740040 
741400 
740040 



754001 
207415 
307454 
507454 

247415 
740200 
740040 
741400 

740040 



754001 
207414 
307454 
507454 
247414 
740200 
740040 
741400 
740040 



754001 
207413 
307454 
507454 
247413 
740200 
740040 
741400 
740040 



754001 
207412 
307454 
507454 
247412 
740200 
740040 
741400 
740040 



/TEST 
ADDAC 



E347 

E348 
/ 

/TEST 



£349 

E350 
/ 

/TEST 



ADD K7S# AC s 
1 CLAJCMAJCLL 
LAC K20 
ADD K7S 
AND K2P 
XOR K2Z 
SZA 
HALT 
SZL 
HALT 

ADD K7Si AC « 
CLAJCMAJCLL 
LAC K10 
AOO K7S 
AND K7S 
XOR K10 
3ZA 
HALT 
SHL 
HALT 

AOO K7S» AC » 
CLAJCMAJCLL 
LAC K4 
K7S 
K7S 
K4 



E351 

E352 

/ 

/TEST 



E353 

E354 

/ 

/TEST 



K20, LINK s 

/AC ■ ONES* LINK ■ 
/AC « 20 
/ONES 
/AC « 20 

/AC « 

/ERROR! ADD »0 TO K?0 FAJLEH 

/ERRORS LINK MOT A ?ERO, CARRY FAILED 

K10, LINK = 

/AC « ONESi LINK ■ 

/AC ■ 10 
/ONES 

/AC ■ 10 



F355 
E356 



ADD 
AND 
XOR 
SZA 

HALT 

SZL 

HALT 



ADO K7S# AC * 
CLAJCMAJCLL 
LAC K2 
ADD K7S 
AND K7S 
XOR K2 
SZA 
HALT 
S2L 
HALT 

AOO K7S» AC ■ 

CLAJCMAJCLL 
LAC Kl 
ADD K7S 
AND K7S 
XOR Kl 
SZA 
HALT 
SZL 

HALT 
.EJECT 



/AC e 

/ERRORl ADD « TO K10 FAILED 

/ERROR! LINK NOT A ZERO CARRY FAJLEO 

4| LINK » 

/AC • ONESi LINK ■ 
/AC « 4 
/ONES 
/AC » 4 

/AC • 

/ERROR! ADD «0 TO K4 FAILED 

/ERROR! LINK NOT A ZERO, CARRY FAILED 

K2i LINK ■ 

/AC ■ ONESi LINK ■ 
/AC « 2 
/ONES 
/AC > 2 

/AC i 

/ERROR! ADD »0 TO K2 FAILED 

/ERROR! LINK NOT A ZERO, CARRY FAILED 

Kli LINK « 

/AC » ONESi LI^K » 
/AC « 1 

/ONES 
/AC « 1 

/AC e 

/ERROR! ADD -0 TO ki f'AlLEO 

/ERROR! LI^K NOT A HERO, CARRY FAILED 



AGE 36 


BX8K 


02102 


744000 


02103 


777777 


02104 


507454 


02105 


307435 


02106 


247435 


02107 


740200 


02110 


740040 


02111 


741400 


02112 


740040 


02113 


744002 


02114 


777777 


02115 


507454 


02116 


30744J 


02117 


247441 


02120 


740200 


02121 


740040 


02122 


740400 


02123 


740040 


02124 


744002 


02125 


777777 


02126 


507454 


02127 


307343 


02130 


247343 


02131 


740200 


02132 


740040 


02133 


740400 


02134 


740040 


02135 


744002 


02136 


777777 


02137 


507434 


02140 


307434 


02141 


247434 


02142 


740200 


02143 


740040 


02144 


740400 


02145 


740040 


02146 


744002 


02147 


777777 


02150 


507454 


02151 


307440 


02152 


247440 


02153 


740200 


02154 


740040 


02155 


740400 


02156 


740040 



BX8K 

/TEST ADD K400K, AC » ONrSi LINK » 



E357 



CIL 

LAW 17777 

AND K7S 

ADO K400K 

XOR K400K 

S1A 

HALT 

SZL 

HALT 



E358 
/ 

/TEST ADD K200K, AC * ONCSi LINK » 1 



/LINK » 

/AC s ONFTS 
/AC a ONES 

/400K 

/AC » 

/ERROR! ADD K400K TO -0 FAILED 

/ERROR! LINK NOT A HERO, CARRY FAILED 



E359 



CLLICML 
LAW 17777 
AND K7S 
ADD K200K 
XOR K200K 
S1A 
HALT 
SNL 
HALT 



/LINK * 1 

/AC > 
/AC > ONES 

/200K 



Ones 



E360 
/ 

/TEST ADD K100K, AC « ONESi LINK * 1 



/AC ■ 

/ERRORl ADO K200K TO »0 FAILED 

/ERRORl LINK NOT A ONEi LINK RESET 



E361 



CUtCML 
LAW 17777 
AND K7S 
ADO K100K 
XOR K100K 
S1A 
HALT 
SNL 
HALT 



E362 

/ 

/TEST ADO K4BKi AC « ONESi LINK ■ 1 



/LINK = 1 

/ac * ones 

/AC * ONES 

/100K 

/AC ■ 

/ERROR* ADD K100K TO *l FAILED 

/ERRORl LINK NOT A ONE, LINK RESET 



E363 



CLLICML 
LAW 17777 
AND K7S 
ADD K40K 
XOR K40K 
SIA 
HALT 
SNL 
HALT 



E364 
/ 

/TEST ADO K20Ki AC ■ ONESi LINK • 1 



/LINK « 1 

/ac « ones 

/AC f ONES 

/40K 

/AC ■ 

/ERRORl ADD K40K TO -0 FAILED 

/ERROR; LINK NOT A ONEi LINK RESET 



E365 

E366 



CLLSCML 
LAW 17777 
AND K7S 
ADO K20K 
XOR K2S?K 
S2A 
HALT 
SNL 
HALT 



/PDP-15 BASIC EXERCISER 



/LINK * 1 

/AC ■ ONES 
/AC ■ ONES 

/20K 

/AC n 

/ERRORl ADD K20K TO -0 FAILED 

/ERROR! LINK NOT A 0*E. LJNK RESET 
1 TAPE 3 
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02137 
02160 
02161 
02162 
02163 
02164 
02165 
02166 
02167 



02170 
02171 
02172 
02173 
02174 
02175 
02176 
02177 
02200 



02201 
02202 
02203 
02204 
02205 
02206 
02207 
02210 
02211 



02212 
02213 
02214 
02215 
02216 
02217 
02220 
02221 
02222 



02223 
02224 
02225 
02226 
02227 
02230 
02231 
02232 
02'?33 



BX8K 



744002 
777777 
907454 
307437 
247437 
740200 
740040 
740400 
740040 



744002 
777777 
507454 

307430 
247432 
740200 
740040 
740400 
740040 



744002 
777777 
507454 
307426 
247426 
740200 
740040 
740400 
740040 



744002 
777777 

507454 
307424 
247424 
740200 

740040 
740400 

740040 



744002 
777777 
507454 

307423 
247425 
740200 
740040 
740400 
740040 



BX8K 
/TEST 



ADD K10Ki AC s ONESi LINK » I 



E367 

E368 
/ 

/TEST 



E369 

E370 
/ 

/TEST 



E371 

E372 
/ 

/TEST 



E373 

E374 
/ 

/TEST 



E375 

E376 



CLLJCML 
LAW 17777 
AND K7S 
ADD K1ZK 
XOR K1&K 
SZA 
HALT 
SNl 
HALT 

AOD K4K» AC 
CLLICML 
LAW 17777 
AND K7S 
AOD K4K 
XOR K4K 
SZA 
HALT 
SNL 
HALT 



/LINK = 1 

/AC i 
/AC " ONES 

/10K 



ones 



/AC « 

/ERROR! ADD Ki0, TO -0 FAILEr 

/ERRORl LINK NOT A QnEi LINK SESFT 

ONES, LINK » 1 
/LINK = 1 

/ac a ones 
/AC a ones 

/4K 

/AC ■ 

/ERRORl ADD K4K TO «e FAILED 

/ERRORl LINK NOT A ONEi LINK RESET 



ADD K2Ki AC « ONESi LINK « 1 



CLLICML 
LAW 17777 
ANO K7S 
AOD K2K 
XOR K2K 
SZA 
HALT 
SNL 
HALT 



/LINK ■ 1 

/ac • ones 

/AC • ONES 
/2K 

/AC ■ 

/ERRORl AC K2K TO »0 FAILED 

/ERRORl LINK NOT A ONE, LINK RESET 



ADO KIKi AC ■ ONESi LINK ■ 1 



CLLICML 
LAW 17777 
AND K7S 

AOD K1K 

XOR K1K 

SIA 

HALT 

SNL 

HALT 



/LINK » 1 

/ac 9 ones 

/AC ■ ONES 
/IK 

/AC * 

/ERRORl ADD KlK TO «0 TAILED 

/ERRORl LINK NOT A ONE# LINK RESET 



ADO K400, AC ■ ONESi LINK « 1 



CLLICML 
LAW 17777 
ANO K7S 

ADO K4<?0 
XOR K40J3 
SZA 

HALT 
SNL 
HALT 
•EJECT 



/LINK * 1 

/ac » ones 

/AC » ONES 

/4B0 

/AC « 

/ERROR; ADD K400 TO -0 FAILED 

/ERRORl LINK NOT A ONEi LINK RESET 
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32234 
02235 
02236 
32237 
552240 
32241 
32242 
32243 
02244 



32245 

02246 
02247 
32253 
02251 
02252 
32253 
32254 
02255 



02256 
02257 

02260 
02261 
02262 
02263 
02264 
02265 
02266 



02267 
32270 
02271 
02272 
02273 
02274 
02275 
02276 
02277 



32333 
32301 
02302 

02303 
32304 
02305 
32306 

02307 
32310 



BX8K 



744002 
777777 
507454 
307432 
247432 
740200 
740340 
740400 
740043 



744002 
777777 
507434 
307420 
247420 
743200 
740040 
740400 
740043 



744002 
777777 
507454 
307423 
247423 
740230 
740040 
740400 
740040 



744002 
777777 

507454 

307421 
247421 

740200 
740040 
740403 

740040 



744002 
777777 
507454 
307415 
247415 
743230 
743040 
740400 
743043 



BX8K 

/TEST 



ADO K200. AC s ONESi LINK « 1 



E377 

E378 
/ 

/TEST 



E379 

E380 
/ 

/TEST 



CLLICML 
LAW 17777 
AND K7S 
ADO K200 
XOR K200 
SEA 
HALT 
SNL 
HALT 

ADO K100i AC 

CUJCML 
LAW 17777 
AND K7S 
ADD K100 
XOR K100 
S!A 
HALT 
SNL 
HALT 



/LINK * 1 

/AC s ONES 
/AC « ONES 

/200 

/AC ■ 3 

/ERROR) ADD K200 TO «0 FAILED 

/ERROR) LINK NOT A ONE, LINK RESET 

ONESi LINK « 1 
/LINK * 1 

/AC ■ ONES 

/AC » ONES 

/100 

/AC ■ 

/ERROR) AOD K100 TO »0 FAILED 

/ERROR) LINK NOT A ONEi LINK RESET 



AOO K40i AC ■ ONESi LINK * 1 



E38l 

E382 
/ 

/TEST 



CLLJCML 
LAW 17777 
AND K7S 
ADD K40 
XOR K40 
SZA 
HALT 
SNL 
HALT 



/LINK ■ 1 

/AC 
/AC * ONES 
/40 



ones 



/AC ■ 

/ERROR! ADD K40 TO «0 FAILED 

/ERROR) LINK NOT A QNEi LINK RESET 



ADO K20, AC ■ ONISi LINK • 1 



E383 

E384 

/ 

/TEST 



CLLICML 
LAW 17777 
AND K7S 
ADD K20 
XOR K2B 
Si* 
HALT 
SNL 
HALT 



/LINK « 1 

/AC • ONES 
/AC • ONES 
/20 

/AC « 

/ERRORI ADD K?B TO »0 FAILED 

/ERRORl LINK NOT A ONEi LINK RESET 



ADO Kid AC » ONES, LINK ■ 1 



E385 
£386 



CLLICML 
L*W 17777 
AND K7S 
ADD K13 
XOR K10 
S2A 
HALT 
SNL 
HALT 
.EJECT 



/LINK ■ 1 

/AC 

/ac * ones 



ones 



/AC » 

/ERROR) ADD K10 TO »3 FAILED 

/ERROR) LINK NOT A ONE. LINK RESET 



PAC 



r 39 



02311 
02312 
02313 
02314 
02315 
22316 
02317 
02320 
02321 



02322 
02323 

02324 

02323 
02326 
02327 
02330 
02331 
02332 



02333 

02334 
02333 

02336 
02337 
02340 
02341 
02342 
02343 



02344 
02345 
02346 
02347 
02350 
02351 
02392 
02353 



02354 

02355 
02356 
02357 
02360 
02361 
02362 
02363 



BX8k 



744002 
777777 
507454 

307414 
247414 

740200 
740040 
740400 

740040 



744002 
777777 

507454 
307413 
247413 

740200 
740040 
740400 

740040 



744002 
777777 
507454 

307412 
247412 

740200 
740040 
7404"00 
740040 



744000 
207454 

307454 

740001 
740200 
740040 
741400 
740040 



744002 
207466 
307470 
247412 

740200 
740040 
740400 
740040 



9X8K 
/TEST 



ADO K4, AC » ONESi LINK « 1 



E387 

E388 

/ 

/TEST 



E389 

E390 

/ 

/TEST 



E391 

£392 

/ 

/TEST 



C393 

E394 
/ 

/TEST 



E395 
E396 



CLLtCML, 
L*W 17777 
ANO K7S 
ADD K4 
XOR K4 
S2A 
MALT 
SNL 
HALT 



/LINK * 1 

/AC s OmeS 
/AC ■ ONES 
/4 

/AC ■ 

/ERROR) ADD K4 TO »0 FAILED 

/ERRORl LINK NOT A ONE. LINK RESET 



ADO K2, AC ■ QNES # LINK » 1 



CLLICML 
LAW 17777 
AND K7S 
ADD K2 
XOR K2 
SZA 
HALT 
SNL 
HALT 



/LINK = 1 

/ac » ones 

/AC ■ ONES 
/2 

/AC « 

/ERRORl ADO K2 TO .0 FAILED 

/ERRORl LJNK NOT A QNE# LINK RESET 



ADD Kl, AC i ONESi LINK 5 1 



CLLICML 
LAW 17777 
AND K7S 
ADD Kl 
XOR Kl 
S8A 
HALT 
SNL 
HALT 



/LINK « 1 

/ac ■ ones 

/AC • ONES 
/l 

/AC « 

/ERRORl AOO Kl TO «0 FAILED 

/ERRORl LINK NOT A ONEi LINK RESET 



ADO K7Si AC • ONES) LINK ■ 

CLL /LINK « 

LAC K7S /AC i ONES 

ADO K7S /ONES 

CHA /AC ■ ONES 

SEA /AC ■ 

MALT /ERRORl ADD K7S TO ALL ONES FAILED 
S«L 

HALT /ERROR* LINK NOT A ONE* LINK RESET 

ADD 525253i AC ■ 252525i LINK ■ 1 

CLLICML /LINK ■ 1 
LAC K010 /AC • 252385 

ADD K5S /S25253 

XOR Kl /000001 

S2A /AC ■ 

HALT /ERROR! ADD K5253 TO K5252 FARED 

SNL 

MALT /ERRORl LINK NOT A 0K'E» LINK RESET 

.EJECT 
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BX8K 


02364 


744000 


02365 


207470 


02366 


307466 


02367 


247412 


02370 


740200 


02371 


740040 


02372 


741400 


02373 


740040 


02374 


754000 


02375 


307446 


02376 


307447 


02377 


307450 


02400 


307451 


02401 


307452 


02402 


307453 


02403 


307454 


02404 


740001 


02405 


740200 


02406 


740040 


02407 


740400 


02410 


740040 


02411 


447517 


02412 


602029 


02413 


106336 


02414 


106362 



BX8K 



/TEST 


ADO 252525, AC 


• 525253i LINK RESET 




CLL 


/LINK * 




LAC K53 


/AC » 525253 




ADO K010 


Z252525 




XOR Kl 


/000001 




SZA 


/AC ■ 


E397 


HALT 

S*L 
HALT 


/ERRORl ADD K2525 TO K5253 FAILED 


E398 

/ 

/TEST 


/ERRORl LINK NOT A EERO, CARRY FA 


ADD SERIES 






CLAICLL 


/LINK * 0| AC 9 




AOD KiS 


/ac ■ 111111 




ADD K2S 


/AC i 333333 




AOD K3S 


/AC » 666666 




ADD K4S 


/AC > 333333, LINK ■ 1 




ADO K5S 


/AC ■ 111111 




ADD K6S 


/AC ■ 777777 




ADD K7S 


/AC « 777777 




CMA 


/AC ■ 




S!A 




f3»9 


HALT 


/ERRORl ADD SERIES rAlLEO 




SNL 




E400 


HALT 


/ERRORl LINK NOT A i 




J5Z W0"K3 


/CHECK DONE LOOPING 




JMP ADDAC1 


/LOOP 




JMS GENRAN 


/GET NO, FOR NEXT LOOP 




JMS CKNO 






.EJECT 





.31 '41 



BX8k 



BX8K 



/AOD RANDOM PAIRS TEST 



F2415 


106336 


!?2416 


741100 


02417 


7400ei 


02420 


741202 


02421 


602415 


02422 


043051 


02423 


740001 


02424 


043052 


02425 


106336 


02426 


741100 


02427 


740001 


552430 


741200 


02431 


602425 


02432 


043053 


02433 


740001 


02434 


043054 


02435 


777777 


02436 


043062 


02437 


744000 


02440 


203054 


02441 


343052 


02442 


741400 


02443 


347412 


02444 


043055 


02445 


203051 


02446 


744000 


02447 


343053 


02450 


741400 


02451 


347412 


02452 


043056 



RANADD 


JMS 


CENRAN 




/GET RANDOM NUMBER 




SPA 




/* 


NO 




CMA 




/B 


MAKE IT * 




SNA 




/0 


NOT ALLOWED 




JMP 


RANADD 








DAC 


APOS 




/IT IS ♦ A 




CMA 




/l 


COMPLEMENT 


M1NUSA 


DAC 


ANIC 




/IT IS *A 




JMS 


GENRAN 




/GET NEXT RANDOM 




SPA 




/♦ 


NO 




CMA 


. 


/« 


MAKE * 




SNA 




n 


NOT ALLOWED 




JMP 


MJNUSA*! 








DAC 


BPOS 




/IT IS ♦ B 




CMA 




/MAKE i*S ZmP 


MJMJSB 


DAC 
LAW 
DAC 
CLL 


BNEG 
• 1 

PASS2 




/IT IS . B 




LAC 


BNEG 




/RESTART HERE TO REGENERATE NEW COMPARES 




TAD 


ANEG 




/»B .A 




S2L 




/EOC IF ADD 




TAD 


Kl 


/YES MAKE CARRY 


MINSAB 

/ 

/NOW GE 


DAC 


SUMNEG 


/SAVE «A «pB 


NERATE A * 8 








LAC 


APOS 




/GET *A 




CLL 










TAD 


BPOS 




/♦B 




slL 




/IOC IF ADD 




TAD 


Kl 


/YIS ADD CARRY 


APLUS8 


DAC 


SUMPOS 








.EJECT 
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BXBK 



8X8K 



02453 

02454 
02455 
02456 
02457 
02460! 



02461 
02462 

02463 
02464 
02465 
02466 



203053 
744000 
343052 
741400 
347412 
043057 



203051 

744000 
343054 
741400 
347412 
043060 



02467 


203056 


02470 


751100 


02471 


207537 


02472 


741200 


02473 


20753.$ 


02474 


042517 


02475 


042545 


02476 


042662 


02477 


042677 


02500 


042715 


02501 


042734 


02502 


042754 


02503 


042775 


02504 


043017 


02505 


042573 


02506 


042621 



/NOW GENERATE B»A 

LAC BPOS 

CLl 

TAD ANEG 

SBL 

TAD Kl 
BMJNSA DAC BMASUM 
/ 
/NOW GENERATE A«B 

LAC APOS 

CLL 

TAD BNEG 

SZL 

TAO Kl 
AMJNSB DAC AMBSUH 
/ 

/IF A*B IS AN OVERFLOW S 
/MAKE OFLOW TESTS THAT A 
/IF A*B IS NOT OVERFLOW 
/OVERFLOW TEST THAT APPL 
/ 

LAC SUMPOS 

SPAiCLA 

LAC KSNL 

SNA 

LAC KSZL 

DAC OFLCKi 

OAC 0FLCK3 

DAC OFLCH1 

DAC 0FLCH2 

DAC 0FLCH3 

OAC 0FLCH4 

OAC 0FLCH5 

DAC 0FLCH6 

OAC 0FLCH7 

DAC 0FLCK5 

OAC 0FLCK7 

.EJECT 



/GET e 

/B»A 
/EOC 

/VES ADD CARRY 
/SAVE B-A 



/GET A 

/•B 

/EOC 

/YBS ADD CARRY 

/A«B 

tTUATION 
PPLY b SNL 
HAKE 
Y ? S2L 

/GET A*B 

/STILL POS RESULT 

/NEG RESULT IS OVERFLOW 

/AC « SNL IS OVERFLOW 

/♦ RESULT IS NO OVERFLOW 

/SET UP ALL OFLOW 

/TESTS WHERE OFLOW 

/MAY OR MAY WOT OCCUR 

/AC s SNL IS A + B OFLOW 

/AC = SZL IS A*B NOT OFLOW 

/IF A. 8 OFLOW *A«8 OOES ALSO 

/IF A*B NOT OPLOW 

/THEN NONE OF THESE 

/ADDS CAN OVERFLOW 



pa 



bxbk 



BXSK 







/NOW DO 


A COMPLETE SERIES OF 






/ONES COM? ADDITIONS 








/SHOULD 


GET THE SAME 


RESULTS AS 






/THE TAD'S WITH EOC ' 


TAD (1 






/FIRST 

/ 

APLSBT 


TEST A»B 




02507 


744000 


CLL 


/FOR OVERFLOW CHECK 


02510 


203051 




LAC APOS 


/GET A 


02511 


303053 




ADD BPOS 


/A*B 


02512 


543056 




SAO SUHPOS 


/SHOULD » PREVIOUS A*B 


02513 


602517 




JMP ,*4 


/OK 


02514 


740040 


E401 


HLT 


/DISPLAY 1'S A*B 


02515 


203056 




LAC SUHpoS 


/GET 2»S COMP GE* 


02516 


740040 




HLT 


/DISPLAY 2'S A*B 


02517 


741400 


orucKi 


Sli 


/0« SNL IF OVERFLOW 


02520 


740040 


£402 


HLT 


/LINK OR OVERFLOW FAILED 


02521 


762507 




LAW APLSBT 
•EJECT 


/MAKE JUMP FOR SCOPE LOOP 



AGE 44 


BX8K 


02522 


744000 


7"2523 


203B&4 


P2524 


303U51 


712525 


543060 


02526 


622532 


02527 


740040 


02530 


203060 


02531 


740040 


02532 


741400 


02533 


745*040 


02534 


762522 


02535 


744000 


02536 


203052 


02537 


303054 


02540 


543055 


02541 


602545 


02542 


740040 


02543 


203055 


02544 


740040 


02545 


741400 


02546 


740040 


02547 


762535 


02550 


744000 


02551 


203053 


02552 


303052 


02553 


543057 


02554 


602560 


02555 


740040 


02556 


203057 


02557 


740043 


02560 


741400 


02561 


740040 


02562 


762550 



BX8K 

/2N0 TEST -8*A 

AMNS8T CLL 

L.AC RnEG 
ADO APOS 
SAO AMBSUM 
JMP ,*4 

E4i53 HIT 

LAC AMSSUM 
MUT 

0FLCK2 SEL 

E404 HLT 

LAW AHKiSBT 



/GET a 

/A-3 
/SHOULD s PRE VIOL'S A-& 
/OK 
/DISPLAY l'S A»R 

/DISPLAY 2'S A«B 

/SMCUL5 ' OT CVEnrLC* 



/NOW 3RD TEST IS -A «8 
MAPLMB CLL 

LAC ANEG 

AOO BMEG 

SAO SUHNEG 

JMP ,*4 
E405 HIT 

L*C SU^MEG 

MIT 
0PLCK3 SZL 
£406 HLT 

LAW MAPL*B 
/ 

/FOURTH TEST IN THIS SERIES 
/IS TEST B-A 
BHNSAT CLL 

LAC BPOS 

ADD ANEG 

SAD BMASUM 

JMP ,*4 

HLT 

LAC BMASUM 

'"'IT 

SHU 

HLT 

LAW BMMSAT 

.EJECT 



/MAKE <J»P FO» SCOPE 



/GET »A 

/PLS -B 
/Snn-LQ = PREVIOUS kA-B 
/OK 
/DISPLAY l'S -A-R 

/DISPLAY 2'S -A-p 
/OR RNL 
/LINK FAILED 

/MAKF JMP FOR SCOPE 



/GET R 

/ADD -A 

/SHOULD = PREVIOUS B-A 

/OK 

/DISPLAY l'S B-A 

/DISPLAY 2'S B«A 
/CAN NOT OVERFLOW 
/OVERFLOW FAILED 

/MAKE J«P FOR SCOPE 



'<5 



BX8K 



BX8K 



^2563 
?2?64 
72565 
="2566 
7)2567 
02570 
02571 
22572 
02573 

22574 
32575 



744202 
??3056 
303i352 
543253 
602573 
740040 
203053 

740040 
7414?3 
740040 
762563 



02576 


744000 


02577 


203057 


02600 


303054 


02601 


543052 


02602 


602606 


02603 


740040 


02604 


203052 


02603 


740040 


02606 


741400 


02607 


740040 


02610 


762576 



02611 


744000 


02612 


203055 


02613 


303051 


02614 


543054 


02615 


602621 


02616 


740040 


02617 


203054 


02620 


740040 


02621 


741400 


02622 


740040 


02623 


762611 



/FIFTH TEST JM TMIS 
/IS TEST (A+PJ-4 = s 
ABMATS CLL 

LAC SUMp'jS 
ADO ANEG 
SAD BPOS 

JMP ,*4 

HIT 

L*C RPOS 

HLT 

S*L 

HUT 

LAW ABMATS 



--EMpS 



E4Z7 



0TLCK5 
E408 



/CA f OVERFLOW Snl IF A + R O'v'E-FLC- 
/ILLEGAL LIMK 

/MAKE J'lP FDR SCOPE. 



/SIXTH TEST IN THIS SERIFS 
/IS TEST (B-A)-8 * »A 
8MAMBT CLL 

LAC BMASUM 

ADD PNEG 

SAD ANEG 

JMP ,*4 

HLT 

LAC ANEG 

HLT 

SHL 

HLT 

LAW pMAMST 



E409 



0FLCK6 
E410 



/CAN NOT OVERFLOW 



/MAKE JMP FOR SCOPE 



/SEVENTH TEST IN THIS SERIFS 
/IS <«A-B>*A « -B 
MABPAT CLL 

LAC SUM-MEG 

ADD APOS 

SAD BNEG 



E4H 



OFLCK7 

E4J.2 



JMP ,*4 

HLT 

LAC BNEG 

HLT 

SZL 

HLT 

LAW MABPAT 

.EJECT 



/CAN BE OVERFLOW JF A*B OVERFLOW TM£N IS S'*L 
/ILLEGAL LINK 

/MAKE JMP FOR SCOPE 



PAGE «6 BX6K BX8K 

/EIG*T* TEST or THE SERIFS 
/IS (A*>B> *B = A 

32624 744000 AMSPBT CLL 

02625 203060 LAC AHBSUM 

02626 303053 aDD BPPS 

02627 543051 SAD APOS 
02633 602634 J*P ,*4 
32631 740040 E413 -H.T 
02632 203051 LAC APOS 
5»2633 740040 -»LT 

»2634 741400 QPUCK8 SHL /CAN' NOT OVERFLOW 

32635 740040 E4J.4 HLT 

02636 762624 LAW AMBPBT /MAKE J*P FO« SCOPE 

/ 

/9TH TEST OF SERIES 

/NOW TEST *C * 777777 + A ■ A 

/ 

02637 7541201 M0ACPA CLLJCLAiCMA /SET AC » 777777 
02640 303051 ADD APOS /+ A 

K2641 543051 SAO APOS /SHOULD s A 

22642 602646 JMP ,♦* /TEST LINK 

02643 740040 £415 HLT /FAILED RESULTS 

02644 223051 L*C APOS 

02649 740040 ML.T /DISPLAY A 

02646 741400 0FLCK9 SHL /CANNOT OVERFLOW 

02647 740040 E416 MLT /OVERFLOW FAILED L « 1 

02650 762637 LAW M0ACPA /MAKE J«P FO" SCOPE 

.EJECT 



P AG1 



"*7 



BX8K 



BX8K 



/THE NEXT SERIES Of TESTS 

/ARE ADO SE3UEMCES T H £ RrSUUTS 

/OF WHJCM HAVE ALREADY BEEM 

/COMPUTED AND VERIFIED 

/ 

/FIRST SERIES TESTS A*B OK» THEM <A+H)tA s B 

/SEE ABMATS FOR SHORTER TEST OR APLSBT 0» m?a(;Pa 

/NOW TRY A*S«A s B 



02651 


754001 


SERS01 


CLUCLAJCMA 


02652 


303051 




ADO apcs 


02653 


303053 




ADC BPOS 


02654 


303052 




ADO AMEG 


02655 


343053 




SAD BPOS 


02656 


602662 




JMP ,*4 


02657 


740040 


E417 


HLT 


02660 


203053 




LAC BPOS 


02661 


740040 




HLT 


02662 


741400 


OFlCHl 


S?L /OR SNL IF A*B OVERFLOW 


02663 


740040 


E418 


HLT /LlNX FAILURE 


02664 


762651 


/ 

/WAVE 1 


LAW SERS01 /MAKE Jmp FOR SCOPE 






■ESTED B«A PREVIOUS 






/SEE BMNSAT FOR SHORTER TEST 






/NOW TRY A*B»A»A » B*A 


02665 


754001 


SERS02 


CLUCLAJCMA 


02666 


303051 




ADO APOS 


02667 


303053 




ADD BPOS 


02670 


303032 




ADO ANEG 


02671 


303052 




ADD ANEG 


02672 


543057 




SAD BMASUH 


02673 


602677 




JMP ,*4 


02674 


740040 


E«19 


HLT 


02673 


203057 




LAC BMASUH 


02676 


740040 




HLT 


02677 


740400 


0FLCH2 


SNL /OR SHL IF NO OVERFLOW 


02700 


740040 


E420 


HLT 


02701 


762665 




LAW SERS02 /MAKE JMP FOR SCOPE 
.EJECT 



PAGE 48 



BX8k 



BX8K 



22702 


75 4??l 


22703 


3e3051 


32704 


303053 


02705 


303052 


02706 


303052 


552707 


303054 


Z2710 


543052 


02711 


602715 


02712 


740040 


02713 


203052 


02714 


740040 


02715 


741400 


02716 


740040 


02717 


762702 


02720 


754001 


02721 


303051 


02722 


303053 


02723 


303052 


02724 


303052 


02725 


303054 


0272* 


303054 


02727 


543055 


02730 


602734 


02731 


740040 


02732 


20305$ 


02733 


740040 


02734 


741400 


02735 


740040 


02736 


762720 



/HAVE TESTED <B-A>-8 = -A PREVIOUS 
/SEE SmAMBT FOR SHORTER TEST 
/NOW TRY A«B-AM-B • -A 
SERS03 CIUCU'CMA 
ADO APOS 





ADD BROS 




ADD ANEG 




ADO ANEG 




AOO BNEG 




SAO ANEG 




jMP ,*4 


E421 


HIT 




L*C ANEG 




HIT 


0FUCH3 


set 


E422 


HUT 




LAW SERS03 



/SMI IE A*3 OVERFLOW 
/OVERFLOW FAILED 

/MAKE JMP FOR SCOPE 



/HAVE TEST »A«B NOW TRY a*B-A-A-B- 
/SEE HaPLMB FOR SHORTER TEST 
SERS04 CUL!CLA!CMA 

ADO APOS 

ADO BPOS 

ADD ANEG 

ADO ANEG 

ADO BNEG 

ADD BNEG 

SAO SUMMEG 



<A-B 





JMP ,*4 


E423 


HIT 




LAC SUMNEG 




HUT 


OFLCH4 


SEU 


E424 


HUT 




LAW SERS04 




.EJECT 



/SNL IF A«B OVERFLOW 
/OVERFLOW FAILED OR LINK FAILED 
/MAKE JMP FOR SCOPE LOOP 



^49 BX8K BX8K 

/HAVE TESTED <*A«B)*A e le NOW A+B'A-A-fi-B* A * -8 

/USE haBPAT FOR SHORTER TEST 
22737 754001 SERS25 CIL:CL*!CMA 
7274? 303051 AC" APOS 

32741 303053 ACQ «p*5S 

5*2742 303052 ADO A\EG 

32743 303052 ADD ANEG 

02744 303054 ADD PNF-G 

02745 303054 ADD PNFG 

02746 303051 ADO APOS 

02747 543054 SAO BNEG 

02750 602754 JMP ,+A 

02751 740040 E425 HIT 

02752 203054 LAC BNEG 

02753 740040 WI.T 

02754 740400 0FLCH5 S^L /0« SZL IP A*B DO MOT OVERFLOW 

02755 740040 E«26 *\.T /LINK OR OVERFLOW FAILED 

02756 762737 LAW SERS35 /MAKE JMP FOR SCOPE 

/ 

/HAVE DONE -B*A PREVjOUSl V 
/NOW DO A*B-A-A-B-»B*A*A s *B*A 
/USE AMNSBT FOR SHORTER TEST 
SERS06 CLL!CLA!CMA 

ADD APOS 

ADD 3P0S 

ADD ANEG 

ADO AMEG 

ADO BMEG 

ADO 5\EG 

ADD APOS 

ADO APOS 

SAO AMBSUM 

JMP ,*4 

E427 MLT 

LAC AMBS'JM 

HLT 
0FLCH6 S?L /OR SNL IF A*B OVERFLOU 

E428 MLT /OVERFLOW OR LINK FAILED 

LAW SERS06 /MAKE JMP FOR SCOPE 

.EJECT 



02757 


754001 


02760 


303051 


02761 


303053 


02762 


303052 


22763 


303052 


02764 


303054 


02765 


303054 


02766 


303051 


02767 


303051 


02770 


943060 


02771 


602779 


02772 


740040 


02773 


203060 


02774 


740040 


02775 


741400 


02776 


740040 


02777 


762757 



"AGE 50 



BX8K 



BX6K 



.•asm 

Z3F02 
23P03 
Z3204 
33003 
03006 
?3007 
03»i3 
*30U 
03012 
03013 
03014 
03013 
03016 
03017 
03020 
03021 



754001 
303051 
303053 
303052 
303052 
303054 
303054 
303051 
303051 
303053 
543051 
603017 
740040 
203051 
740040 
740400 
740040 
763000 



03022 


443062 


03023 


603044 


03024 


203051 


03025 


043053 


03026 


203054 


03027 


043052 


03030 


740001 


03031 


043051 


03032 


203053 


03033 


740001 


03034 


043054 


03035 


203057 


03036 


040010 


03037 


203060 


03040 


043057 


03041 


200010 


03042 


043060 


03043 


602507 



/HAVE DOM <«-9*A)*B PRFVfCUSLV 
/NOW OCE A*8-A-A-B-fcUA+A«E r A 
/USE AkBPBT FOR SHO«T£R fST 
SE"S27 CtL!CL*!CMA 

ADO APOS 

ADD BROS 

ADO ANEG 

ADD ANE.G 

ADD 8NEG 

ADD BNEG 

ADD APOS 

ADD APOS 

ADD BPOS 

SAO APOS 
,*4 



E429 



0FLCH7 
E430 



jMB 
MLT 
L*C APOS 

SNt 

LAW SERS07 



/OR S2L IF A*B MOT OVERFLOW 
/LINK OR OVERFLOW FAILED 

/MAKE JHP FOR SCOPE LOOP 



/AFTER ONE PASS 

/MAKE ALL 8 CONSTANTS A 

/AND MAKE ALL A CONSTANTS b 

/ 

CONCHG IS2 PASS2 

JMP CKLP 

L*C APOS 

DAC BPOS 

LAC BNEG 

DAC ANEG 

C*A 

DAC APOS 

L*C BPOS 

CMA /ANEG 

DAC BNEG 

LAC BMASUM 

DAC 10 

LAC AMBSUM 

DAC BMASUM 

LAC 10 /B*A 

DAC AMBSUM 

JMP APLSBT 

.EJECT 



/2ND PASS 

/YES DOn'E 2ViD 

/A 

/IS \'OK B 

/BNEG 

/JS ANEG 

/B IS A 



/IS \>EG 



/A-B 

/IS MOW A»B 

/IS NOW A»B 
/OVERFLOW SERUP 



P'*G 



8X8K 



8X8K 



035*44 


447517 


CKL.P 


!SZ 


W0BK3 


03C45 


602415 




JMP 


RANAD3 


*3e46 


106336 




JMS 


GENRAN 


* 3 ." 4 7 


ll?6362 




J^S 


CK*C 


?3C5? 


6032*3 


/ 


JMP 


AOEOON 


03051 


200000 


/ 

APOS 





/A 


Z3?52 


000002 


ANCG 





/'A 


03053 


000000 


BPOS 





/a 


03^54 


200000 


BNEG 


3 


/•3 


03059 


000000 


SUMNEG 





/•A*(»B) 


03056 


000000 


SUMPOS 





/MB 


03057 


000000 


BM4SUM 





/BM.A) 


03060 


000000 


AMBSUM 
/ 

MSKBIT 





/A*UB) 


03061 


000000 








/CHECK DONE LOOPING 
/LOQP 

/get mo, for next uoop 



.EJECT 



"AGE 52 BX8k 
i*3P62 000000 



03063 


106336 


03064 


043051 


03065 


740031 


03066 


043052 


03067 


207435 


03070 


043061 


03071 


203051 


03072 


503061 


03073 


740200 


03074 


603103 


03875 


203051 


03076 


243061 


03077 


043053 


03100 


203052 


03101 


043054 


03102 


603110 


03103 


203052 


03104 


243061 


03105 


043053 


03106 


203051 


03107 


043054 


03110 


744000 


03111 


203053 


03112 


303054 


03113 


543061 


03114 


603120 


03115 


740040 


03116 


203061 


03117 


740040 


03120 


741400 


03121 


740040 


03122 


76311? 



Bxe< 

PASS2 

/GET A RANDOM NumBE* AKD ITS l'S C^PL^'ENT 

/EACH BIT WILL HAVE A ? J s, C'E Of T - E T w ~ NUMBERS 

/MAKE THE BIT a 1 AND ADO the mj*9ERS "OTH WAYS 

/FIRST ADD IS T.4E (AC) I? Twc ALTERE^ ?■ = 1 

/SECOND ADO IS THE <MB> IS T^E ALTERED Z « 1 

/THE RESULT QP 30TH ADDS SHOULD « THE ALTERED BJT = 1 

/ 

ADEDOM JMS GENRAN /GET RA*-Om vU"8ER 

dac apos /save it 

CMA /MAKF ONES CO^PL-'^FVT 

DAC ANEG /AND SAVE IT 

/ 
/THE FIRST BIT TO BE ALTERED IS 3 THEN CONTINUE TO 17 

LAC K400< 

DAC MSK0IT 
/ 

/SET UP NEXT BIT TO TEST ■> ALTERED NUMBER GOES TO BPOS 
BJSETU LAC APOS 



AND MSK3IT 
SEA 

JMP MOPNEG 

LAC APOS 

XOR MSKBIT 

DAC BPOS 

LAC ANEG 

DAC BNEG 

JMP BITTS1 



/DOES APOS BIT s 

/NO Ai.T£S ANEG 



/MODIFIED NUMBER GOES TO APOS 
/UNMOO NUMBER GOES TO BN£G 



/THE ONES COMP NUMBER HAS THE BIT MODIFY IT 
MODNEG LAC ANEG 

XOR MSKBIT 

DAC BPOS 

LAC APOS 

OAC BNEG 
/ 

/COMPLEMENTED BIT TEST1 (AC) 
/ 



/HOD NUMBER TO BPOS 
/UNMOO NUMBER TO BNEG 
MODIFIED DUMBER AT ADD 



BITTS1 CLL 

LAC BPOS 
ADD BNEG 
SAD MSKBIT 
JMP ,*4 

£431 HLT 

LAC MSKBIT 
HLT 

OFLCH8 S2L 

E432 HLT 

LAW BJTTS1 
.EJECT 



/GET MODIFIED NUMBER 

/ADD UNMODIFIED 

/RESULT SHOULD » BIT CHANGED 

/DISPLAY INCORRECT RESULTS 

/DISPLAY BIT ALTfRED AND EXP 
/NO nvERFLCUi 
/OVERFLOW NOT A l L * E n 

/MAKE JMP FOR SCOPE L OOP 



page 



'53 



BX8K 



BX8K 



03123 


744000 


?3124 


203054 


5-3125 


3030<53 


03126 


543061 


33127 


603133 


(53130 


740040 


03131 


203061 


03132 


740040 


03133 


741400 


133134 


740040 


03135 


763123 



03136 


203061 


03137 


744020 


03140 


043061 


03141 


740200 


03142 


603071 


03143 


44751? 


03144 


603063 


03145 


106336 


03146 


106362 


03147 


750004 


f»3150 


742010 


03151 


741100 


03152 


602415 


03153 


207411 


03154 


5474H 


03155 


741000 


03156 


740040 


03157 


207411 


03160 


547454 


03161 


740040 


03162 


207454 


03163 


5474H 


03164 


740043 


03165 


207454 


03166 


547454 


03167 


741000 


03170 


740040 



/COMP BIT TEST 2 (MB) s MODIFIED NUMBER AT ADD 
/ 

PITTS2 CLL 

LAC BNEG 



E433 



!>"?. apos 

SAD MSKBIT 

J U P ,*4 

MLT 

l*C M5K8IT 

HLT 
0PLCH9 SZL 
£434 WLT 

LAW BITTS2 
/ 

/POSITION MASK BIT OvER i PLACE 
/IF 17 HAS BEEN DONE CONTINUE 
/ 

LAC MSKBIT 

RCR 

DAC MSKBIT 

S?A 

jmp eiSETu 
/ 

/END OP TEST SEQUENCE 
/ 

IS2 W0&K3 

jmp ADCDON 

JMS GENFUN 

J«S CKNo 

LAS 

RTL 

SPA 

JMP RANADD 
/PDP-15 BASIC EXERCISER - TAPE 4 
/TEST SAD 
/ 
SADAC 



/GET UNMODIFIED MjM?rR 

/APD MCdflEf 

/RESULT SHOULD a BIT ChAvGED 



/OK 

/DISPLAY INCORRECT Rf.SULTS 

/DISPLAY BIT ALTERED A*D EXP 
/SHOULD NOT OVERFLO* 

/MAKE JMP FOR SCOPE LOOP 



/GET LAST 
/POSITION 

/SAVE 
/DONE ALL BITS 

/DO FOR NEXT BIT 



/CHECK DONE LOOPING 

/LOOP 

/GET NO, TOR NEXT LOOP 

/CHECK FOR CONTINUOUS LOOP 
/CK ACS 2 

/LOOP 



E435 
/ 



E436 
/ 



E437 
/ 



E438 
/ 

/SAD. TAD 



LAC K0 
SAD K0 
SKP 

HALT 

LAC K0 
SAD K7S 

HALT 

LAC K7S 

SAD K0 
HALT 

LAC K7S 
SAO K7S 
SKP 
HALT 



/AC 







/ERROR. SAD K0 SKIPPED 

/AC » 

/ERROR, SAD K7S FAILED TO SKIP 

/AC * l'S 

/ERROR, SAD K0 FAILED TO SKIP 
/AC » l'S 

/ERROR, SAD K7S SKIPPED 



PACE 54 


BX8K 


BX8K 




03171 
03172 
P3173 
P3174 
03175 


750000 
347411 

547411 

741003 
740040 


/ 

E439 
/ 

E440 
/ 

E441 
/ 

E442 

/ 


CLA 

TAD K0 
SAD K0 
SKP 
WALT 


03176 
03177 

03200 
03201 


750000 
347411 
547454 

740040 


CLA 

TAD K0 
SAD K7S 

HALT 


03202 
03203 
03204 
03205 


750000 
347454 
5474U 

740040 


CLA 

TAO K7S 
SAD K0 
HALT 


03206 
03207 
03210 
03211 
03218 


750000 
347454 
547454 

741000 

740040 


CLA 

TAD K7S 
SAD K7S 

SKP 
HALT 



/AC « 

/ERROR. SAD K0 SKIPPED 
/AC « 

/ERROR, SAD K7S FAILED TO SKIP 
/AC « 

/ERROR. SAO K0 FAILED TO SKIP 
/AC « 

/ERROR. SAO K7S SKIPPED 



.EJECT 



p A3l 



BXSK 



BX8K 







/SEQUENT!*!. SAO 

i 




03213 


2074H 


f 


LAC K0 


/AC * 


03214 


947454 




SAD K7S 




33215 


760001 




LAW 1 


/760001 


03216 


947454 




SAO K7S 




03217 


760002 




LAW 2 


/760B02 


03220 


547454 




SAO K7S 




03221 


760004 




LAW 4 


Z760004 


03222 


547454 




SAD K75 




03223 


760010 




LAW 10 


/760010 


03224 


547454 




SAD K7S 




03225 


760020 




LAW 20 


/760?20 


03226 


547454 




SAO *7S 




03227 


760040 




LAW 40 


Z760040 


03230 


740200 




S2A 




03231 


740040 


E443 

/ 

/TEST 
/ 


WALT 


/ERROR, AC NT 0, CONTENTS 
/AC ■ LAST SAO THAT FAILED 






SAOi SKP SERIES 




03232 


790000 


CLA 


/AC • 


03233 


547454 




SAO K7S 




03234 


760001 




L*W 1 


/760001 


03235 


741000 




SKP 




03236 


760002 




LAW 2 


/7600B2 


03237 


547454 




SAO K7S 




03240 


760004 




LAW 4 


Z760004 


03241 


741000 




SKP 




03242 


760010 




LAW 10 


/760010 


03243 


547454 




SAO K7S 




03244 


760020 




L*W 20 


Z760020 


03249 


741000 




SKP 




03246 


760040 




LAW 40 


Z760040 


03247 


740200 




SZA 




03290 


740040 


E444 
/ 


HALT 


/ERROR, AC NOT 0, CONTENTS 
/OP AC ■ LAST SAD OR SKP 


33291 


447517 


IS? WORKS 


/CHECK DONE LOOPINS 


03292 


603193 




JMP 8A0AC 


/LOOP 


03293 


106336 




JMS QENRAN 


/GET NO, FOR NEXT LOOP 


03294 


106362 




JMS CKNO 





.EJECT 



PACE 56 


BX8K 


BX8K 








/TEST 
/ 

DZMAC 

E445 


DZM 


03255 
03256 
03257 

03260 
03261 


207533 
151111 

211111 
740200 
740040 


LAC KHALT 
DZM Hill 
LAC 11111 
SHA 
HALT 


03262 
03263 
03264 
03269 
03266 


207533 
152222 
212222 

740200 
740040 


/ 
E446 


LAC KHALT 
DiM 12222 
LAC 12222 
S2A 

HALT 


03267 

03270 
03271 
03272 
03273 


207533 
153333 
213333 

740200 
740040 


/ 
E447 


LAC KHALT 
DIM 13333 
LAC 13333 
SlA 

HALT 


03274 
03279 
03276 

03277 

03300 


207533 

154444 

214444 
740200 
740040 


/ 

C448 


LAC KHALT 
OIH 14444 

LAC 14444 
SZA 

HALT 


03301 
03302 
03303 
03304 
03309 


207533 
155959 
219599 

740200 
740040 


/ 

£449 


LAC KHALT 
DIM 19559 
LAC 15995 
SlA 

HALT 


03306 
03307 
03310 
03311 
03312 


207533 
196666 

216666 

740200 

740040 


/ 

£490 


LAC KHALT 
DIM 16666 
LAC 16666 
SZA 

HALT 


03513 
03314 

03319 
03316 
03317 


207533 
157777 
217777 

740200 
740040 


/ 
£451 


LAC KHALT 
OEM 17777 
LAC 17777 
SZA 

HALT 



/AC ■ 74?i040 

/ADDR 1111 OR 01111 



/ERROR, 0?M FAILED AT 11111 
/OR 01111 



/AC ■ 74i*040 



/ERROR, OHM FAILED AT 1222 0<? 
Z02222 



.EJECT 



/AC « 740040 



/ERROR, DZM FAILED AT 13333 OR 
/0S333 

/AC ■ 740040 



/ERROR. DZM FAILED AT 14444 
/OK 04444 

/AC • 740040 



/ERROR. DZM FAILED AT 15555 
/O* 05555 

/AC « 740042 



/ERROR, DZM FAILED AT 16666 
/OR 06666 

/AC * 740040 



/ERROR. OHM FAILED AT 17777 
/OR 37777 



*A 



57 



03320 
73321 
03322 
03323 

23324 



33325 
03326 
23327 

93330 
03331 



03332 
03333 
03334 
03335 
03336 



03337 

03340 
03341 
03342 
03343 
03344 
03345 
03346 
03347 
03350 
03351 



BXdK 



207533 
152525 

212525 
740200 
740040 



207533 
155252 
215252 
740200 

740040 



207454 
157777 

740001 
740200 

740040 



754001 
307454 
157777 

740001 
740200 
740040 
741400 
740040 
217777 
740200 
740040 



03352 


207454 


03353 


152525 


03354 


155252 


03355 


197777 


03356 


150000 


03357 


740001 


03360 


750200 


03361 


740040 



BX8K 

/ 

£452 
/ 



LAC KH*LT /AC ■ 74P040 

OiM 12525 
L.AC 12525 
SZA 

HALT /ERROR. DZM FAILED AT 12525 

/OR F2525 



LAC KHALT 
DZM 15252 
LAC 15252 
SZA 
HALT 



/AC ■ 743040 



£453 

/ 

/ 

/TEST AC AFTER A DZM 
/ 

LAC K7S 

DZM 17777 

CMA 

SZA 
E454 HAI.T 
/ 

//TEST ACi LINK. ADR. 17777 OR 07777 AFTER A OHM 
/ 



/ERROR, DZM FAILED AT 15252 OR 0525? 



/AC • 777777 



/ERROR, AC CHANGED AFTER A DZM 



E455 
£456 



CIASCMAICLL 

ADD K7S 

OZM 17777 

CMA 

SZA 

HALT 

SZL 

HALT 

LAC 17777 

SZA 

HALT 



E457 

/ 

/ 

/SEQUENTIAL DIM 

/ 

LAC K7S 
DZM 12525 
DIM 15252 
DZM 17777 
DZM 10000 
CMA 
CLAISZA 

E458 HALT 

.EJECT 



/AC « l'Si LINK ■ z 



/ERROR. AC NOT l'S AFTER A H2M 
/ERROR, LINK NOT 

/ERROR. DZM FAILED AT 177777 OR 07777 



/AC f 1>S 



/AC ■ 

/ERROR, AC MOT 3 IS AFTER 
/DZ^ SERIES 



PAGE 56 



BX8K 



BXSK 



P»3362 


352523 




TAD 12525 


03363 


355252 




TAD 15252 


33364 


357777 




TAO 17777 


03365 


350000 




TAO 10000 


03366 


7402F0 




SZA 


03367 


740040 


E459 
/ 


HALT 


03370 


447517 


iSi? WORKS 


03371 


603253 




JMP OZ«AC 


03372 


106336 




JMS 6ENRAN 


03373 


106362 


/ 


J*tS CKNO 






/ 

/TEST 

/ 
OACAC 


OAC 


03374 


207455 


LAC K51S 


03375 


051111 




OAC Hill 


03376 


551111 




SAO 11111 


03377 


741000 




SKP 


03400 


740040 


E460 


HALT 


0340], 


207456 




LAC K12S 


03402 


052222 




OAC 12222 


03403 


552222 




SAO 12222 


03404 


741000 




SKP 


03403 


740040 


E461 


HALT 


03406 


207457 




LAC K13S 


03407 


053333 




OAC 13333 


03410 


553333 




SAO 13333 


03«11 


741000 




SKP 


03412 


740040 


E462 


HALT 


03413 


207460 




LAC K14S 


03414 


054444 




OAC 14444 


03415 


554444 




SAO 14444 


03416 


741000 




SKP 


03417 


740040 


E463 


HALT 


03420 


207461 




LAC K15S 


03421 


055555 




OAC 15555 


03422 


555555 




SAD 15555 


03423 


741000 




SKP 


03^24 


740040 


E464 


HALT 



/ERROR, D2M FAILED 

/CHECK DONE LOOPING 
/LOOP 
/GET NO, FOR NEXT LOOP 



.EJECT 



/AC ■ lull 



/ERROR. DAC ADR CONTENTS NOT EQUAL 
/TO AC, OAC FAILED 

/AC • 122222 



/ERROR, 122222 OR 022222 CONTENTS 
/NOT « TO AC, OAC FAILED 
/AC • 13333 



/ERROR. 13333 OR 03333 CONTENTS 
/NOT » TO AC DAC FAILED 
/AC ■ 14444 



/ERROR, 14444 OR 03333 CONTENTS 
/NOT p TO AC, DAC FAILEO 
/AC • 15555 



/ERROR, 15555 OR 05555 CONTENTS 
/NO • AC, DAC FAILED 



n 



59 



9X8K 



BX8K 



£"3425 
03426 
034g7 
?3430 
03431 

03432 

03433 
03434 
03435 
03436 

03437 

03440 
03441 

P3442 
03443 

03444 
03445 
03446 
03447 
03490 



03451 
03452 
03453 
03454 
03455 
03456 
03457 
03460 
03461 
03462 
03463 
03464 
03465 
03466 
03467 
03470 
03471 
03472 



03473 
03474 
03475 
33476 



207462 
056666 
5J6666 

741000 
740040 

207463 
057777 
557777 

741000 

740040 

207466 
052525 
552529 

741000 

740040 

207467 
055252 
555252 

741000 
740040 



744000 
207454 
052525 
055252 

057777 

351000 
051111 
740001 
750200 
740040 
312525 
315252 
317777 
311000 
311111 
740001 
740200 
740040 



447517 
603374 
106336 

106362 



LAC K16S 
DAC 16666 
SAD 16666 
SKP 
E465 HALT 

LAC K17S 
DAC 17777 
SAD 17777 

SKP 
E466 MALT 

LAC K010 
DAC 12525 
SAD 12525 
SKP 
E467 HALT 

LAC K101 
DAC 15252 
SAD 15252 
SKP 
C468 HALT 

/ 
/ 

/SEQUENTIAL DAC 

/ 

CLL 

LAC K7S 
OAC 12525 
DAC 15252 
DAC 17777 
DAC 11000 
OAC 11111 
CMA 
CLAIS2A 

E«*9 HALT 

ADD 12525 
ADD 15252 
ADD 17777 
ADD 11000 
ADD Hill 
CMA 
SZA 

E470 HALT 



IS2 W0«K3 
J*P OACAC 
JMS GENRAN 
JMS CKMO 
.EJECT 



/AC a 166666 



/ERROR, 16666 OP 06666 CONTENTS 
/MOT " AC, OAC TAILED 
/AC s 17777 



/ERROR, 17777 OR 07777 CONTENTS 
/NOT « AC, OAC FAILED 
/AC ■ 252525 



/ERROR, 12525 OP 02525 CONTENTS 
/AC 1 AC, DAC FAILED 
/AC * 525252 



/ERROR, 15252 or 05252 CONTENTS 
/MOT » AC, DAC FAILED 



/L « 
/AC ■ 1"S 



/AC • 

/ERROR, AC NOT 1 »S AFTER DAC SERIES 

/ONES 

/ONES 

/ONES 

/ONES 

/ONES 
/AC ■ 

/ERROR, DAC FARED, ONE OR MORE 
/ADDRESSES NOT pvES 

/CHECK DONE LOOPING 
/LOOP 
/GET NO, FOR N'EXT LOOP 
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BX8K 


03477 


2074H 


03500 


Z50100 


03501 


450100 


03502 


751001 


03503 


740040 


03504 


507412 


03505 


550100 


03506 


741000 


03507 


740040 


03510 


207511 


03511 


050100 


03512 


450100 


03513 


751001 


03514 


740040 


03515 


507435 


03516 


550100 


03517 


741000 


03520 


740040 


03521 


207503 


03522 


050100 


03523 


450100 


03524 


751001 


03525 


740040 


03526 


507454 


03527 


550100 


> 03530 


741000 


03531 


740040 


03532 


207503 


03533 


057777 


03534 


457777 


03535 


751001 


03536 


740040 


03537 


507454 


03540 


557777 


03541 


741000 


03542 


740040 


03543 


207511 


03544 


057777 


03549 


457777 


03546 


751001 


03547 


740040 


03550 


507435 


03551 


557777 


03552 


74103B 



8XSK 

/TEST 

/ 

ISZAC 



E471 



E472 



E473 



E474 



E475 



E476 



E477 



E478 



E479 



isz 



L*C K0 

DAC 10100 

ISZ 10100 

SKPJCLAJCMA 

HALT 

AND Kl 

SAO 10100 

SKP 

MALT 

LAC H400K 

DAC 10100 

ISZ 10100 

SKPJCLAJCMA 

HALT 

AMD K400K 

SAO 10100 

SKP 

HALT 

LAC Ml 

OAC 10100 

IS? 10100 

SKPICLAJCMA 

HALT 

AND K75 

SAO 10100 

SKP 

HALT 

L*C Ml 
DAC 17777 
ISZ 17777 

SKPiCLAICMA 
HALT 
AND K?S 
SAO 17777 

SKP 
HALT 

LAC M400K 
OAC 17777 
ISZ 17777 

SKPJCLASCMA 

MALT 

AND K400K 

SAD 17777 

SKP 
•EJECT 



/ac * e 



/ERROR. IS2 SKiPPn 
/AC ■ 1 



/ERROR. 1^100 OP 2F10? NOT 1 
/ISZ TAILED 

/AC • 377777 



/ERROR. ISZ SKIPPED 



/ERROR, 13100 OR 00100 NOT 400000 
/ISZ TAILED 
/AC * 777776 



/ERROR. ISH SKjpPEO 



/ERROR. 1^100 OR 00100 NOT 777777 
/ISZ TAILED 
/AC ■ 777776 



/ERROR. ISZ SKIPPED 



/ERROR, 1777 OR 07777 NOT 777777 
/ISZ FA1LEB 

/AC f 377777 



/ERROR. ISZ SKIPPED 



P 4GE^«1 


BX8K 


BX8K 




03553 


740040 


E480 


m*LT 


PI3554 


207411 




LAC K0 


03555 


*57777 




PAC 17777 


03556 


457777 




!S? 17777 


03557 


751001 




SKP!CLA!CMA 


03563 


740040 


E48l 


MALT 


03561 


507412 




AND Kl 


03562 


557777 




SAO 17777 


03563 


741000 




SKP 


?3564 


740040 


E482 


'-.ALT 


03565 


750000 




CL* 


?3566 


247454 




XOR K75 


03567 


051111 




DAC 11111 


03570 


451111 




ISZ Hill 


03571 


740040 


E463 


HALT 


03572 


211111 




L*C 11111 


03573 


740200 




SfA 


03574 


740040 


E484 


MALT 


03575 


750000 




CLA 


03576 


247454 




XOR K7S 


03577 


052222 




DAC 12222 


03600 


452222 




ISZ 12222 


03601 


740040 


"E403 


WALT 


03602 


212222 




LAC 12222 


03603 


740200 




SZA 


03604 


740040 


E486 


MALT 


03605 


750000 




CLA 


03606 


247454 




XOR K7S 


03607 


053333 




DAC 13333 


03610 


453333 




IS? 13333 


03611 


740040 


E487 


MALT ' 


03612 


213333 




LAC 13333 


03613 


740200 




S2A 


03614 


740040 


E488 


HA-LT 


03619 


750000 




CL* 


03616 


247454 




XOR K7S 


03617 


054444 




DAC 14444 


03620 


454444 




151 14444 


03621 


740040 


E489 


HALT 


03622 


214444 




LAC 14444 


03623 


740200 




SZA 


03624 


740040 


E490 


HALT 



.EJECT 



/ERROR, 17777 Or 0777 ^TOT 4"0?0« 
/ISZ FAILED 



/ERROR, ISZ SKIPPED 



/ERROR, 17777 OR 07777 fyOT 1 
/ISZ FAILED 
/AC • 
/AC * l'S 



/ERROR. ISZ FAILED TO SKIP 



/ERROR, 11111 OR 01111 NOT 7 
/ISZ FAILED 
/AC « 
/AC » l'S 



/ERROR. JSZ FARED TO SKIP 



/ERROR. 12222 OR 02222 NOT 
/ISZ FAILED 

/AC ■ l'S 



/ERROR, ISZ DID NOT SKJP 



/ERROR, 13333 OR 03333 MOT 
/I$Z FAILED 

/AC l l'S 



/ERROR, ISZ DID NOT SKIP 



/ERROR. 14444 OR 04444 NOT 
/ISZ FAILED 



PASE 62 



BX8K 



BX8K 



03625 


750000 




CI* 


03626 


247454 




XOR K7S 


03627 


055555 




DAC 15555 


03631? 


455555 




IS? 15555 


03631 


740040 


E491 


HALT 


03632 


215555 




LAC 15555 


03633 


740200 




SEA 


03634 


740040 


£492 


MALT 


03633 


750000 




CLA 


03636 


247454 




XOR K7S 


03637 


056666 




DAC 16666 


03640 


456666 




IS? 16666 


03641 


740040 


E493 


HALT 


03642 


216666 




UAC 16666 


03643 


740200 




SEA 


03644 


740040 


E494 


HALT 


03645 


750000 




CLA 


03646 


247454 




XOR K7S 


03647 


057777 




DAC 17777 


03650 


457777 




ISZ 17777 


03651 


740040 


£495 


HALT 


03652 


217777 




LAC 17777 


03653 


740200 




S!A 


03654 


740040 


£496 


HALT 


03655 


750000 




CLA 


03656 


247454 




XOR K7S 


03657 


052523 




DAC 12525 


03660 


452523 




ISZ 12525 


03661 


740040 


E«97 


HALT 


03662 


212929 




LAC 12525 


03663 


740200 


a 


SIA 


03664 


740040 


E498 


HALT 


03665 


750000 




CLA 


03666 


247454 




XOR K7S 


03667 


055258 




DAC 15252 


03670 


435252 




JSZ 15232 


03671 


740040 


E499 


HALT 


03672 


215252 




LAC 15252 


03673 


740200 




8ZA 


03674 


740040 


£500 


HALT 



.EJECT 



/AC « l'S 



/ERROR. ISZ DIP NOT SKIP 



/ERROR, 15555 OR 05555 NOT 
/IS? FAILED 

/AC « l'S 



/ERROR, ISZ Rio NOT SKJP 



/ERROR. 16666 OR 06666 NOT 
/ISZ FAILED 

/AC = l'S 



/ERROR, ISZ OID NOT SKIP 



/ERROR, 17777 OR 07777 NOT 7 
/ISZ FAILED 

/AC ■ l'S 



/ERROR. IS2 DID NOT SKIP 



/ERROR, 12525 OR 02525 NOT 
/ISZ FARED 

/AC « l'S 



/ERROR, ISZ DID NOT SKIP 



/ERROR, 15252 OR 05252 nOT 3 
/ISZ FAILED 



B A 



63 



BXSk 



BX8K 







/TEST !SI» SKP 
/ 

LAC K7S 


03675 


207454 


03676 


052525 


DAC 12525 


03677 


055252 


DAC J5252 


03700 


057777 


OAC 17777 


03701 


051000 


QAC 11000 


03702 


050100 


DAC 10103 


03703 


452525 


ISZ 12525 


03704 


741000 


SKP 


03705 


455252 


ISZ 15252 


03706 


741000 


SKP 


03707 


457777 


ISZ 17777 


03710 


741000 


SKP 


03711 


451000 


ISZ 11000 


03712 


741000 


SKP 


<?3713 


450100 


ISZ 10100 


03714 


740040 


E501 HALT 


03715 


312525 


ADD 12525 


03716 


315252 


ADD 15252 


03717 


317777 


ADD 17777 


03720 


311000 


ADO 11000 


03721 


310100 


ADD 10100 


03722 


740001 


CMA 


03723 


740200 


SZA 


03724 


740040 


E502 HALT 

/ 

/ 

/SEQUENTIAL ISH, l> 

/ 

LAC M400K 


03725 


2075H 


03726 


052525 


DAC 12525 


03727 


055252 


DAC 15252 


03730 


057777 


DAC 17777 


03731 


051000 


DAC 11000 


03732 


050100 


DAC 10100 


03733 


452525 


ISZ 12525 


03734 


455252 


JSI 15252 


03735 


457777 


ISI 17777 


03736 


451000 


ISZ 11000 


03737 


450100 


ISH 10100 


03740 


750000 


CLA 


03741 


312525 


ADD 12525 


03742 


315252 


ADD 15252 


03743 


317777 


ADD 17777 


03744 


311000 


ADD 11000 


03745 


310100 


ADD 10100 


03746 


247436 


XOR K402K 


03747 


740200 


SZA 


03750 


740040 


E503 HALT 

•EJECT 



/AC « l'S 

/12525 or 02525 

/15252 on 05?52 

/17777 0" ?7777 

/11000 0» ?l."0i: 

/10100 0» ??10< 



/ERROR. ISZ DID NOT SKIP 



/ERROR, ALL ADRS. tv'OT E 



/AC * 377777 
/OR 02525 
/OR 05252 
/OR 07777 

/OR 01000 
/OR 00100 



/AC s 



/RESULT = 4??M2 
/ERROR, ALL ADncS, \CT 4WZM 
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BX8K 



8XBK 



03751 
03752 
03753 
03754 
03755 
03756 



03757 
03760 
03761 
03762 
03763 
03764 



03765 
03766 

03767 
03770 
03771 
03772 

03773 

03774 
03775 
03776 
03777 



207454 

055252 
455252 

741000 
741000 
740040 



207454 
055252 

741000 
740000 
455252 
740040 



207411 
055252 

741000 
740000 
455252 

741000 
740040 

447517 
603477 

106336 
106362 



/TEST 
/ 



C504 
/ 

/TEST 
/ 



E505 
/ 

/TEST 
/ 



E506 
/ 



ISZ-SKPi SKIP 

LAC K7S 

DAC 15252 

IS2 15?5? 

SKP 

SKP 

HALT 

SKP-ISZi SKIP 

LAC K7S 

OAC 15252 

SKP 

NiOP 

IS2 15252 

HALT 

SKP-ISZi NO-SKIP 

LAC K0 

DAC 15252 

SKP 

NOP 

ISZ 15252 

SKP 

HALT 

ISZ WC-PK3 
J*P 1S?AC 
JMS SEN'RAN 
JMS CKNO 
.EJECT 



/AC ■ l'S 



/ERROR. IS?*SKJP Din \OT SKIP 



/AC * 17S 



/ERROR, SKP-lSz DID *OT SKIP 



/AC ■ 



/ERRCR, SXP-JS? SKIPPED 

/CHECK DONE LOOPING 

/LOOP 

/GET NO, roR NEXT LOOP 



pa 



'65 



BX8K 



BXBK 







/TEST 
/ 


JHP 


04000 


207552 


L*C JMPRET 


04001 


740200 




SBA 


04002 


740040 


E507 


WALT 


04003 


204163 


IN1T4K 


LAC JMPSEQ 


04004 


047552 




OAC JMPRET 


04005 


204005 




LAC , 


04006 


507437 




AMD K10K 


04007 


740200 




SEA 


04010 


604014 




JMP ,*4 


04011 


207437 




LAC K10K 


04012 


047513 




DAC RJCNT 


04013 


604020 




JMP ,*5 


04014 


207421 




LAC K20 


04015 


047513 




DAC RJCNT 


04016 


741000 




SKP 


04017 


147552 




OZM JMPRET 


04020 


204163 




LAC JMPSEQ 


04021 


067513 




OAC» RJCNT 


04022 


447513 




!S2 RJCNT 


04023 


207513 




LAC RJCNT 


04024 


546007 




SAD K17777 


04025 


741000 




SKP 


04026 


604017 




JMP ,.7 


04027 


207552 




LAC JMPRET 


04030 


740200 




SZA 


04031 


740040 


E50S 


HALT 


04032 


204164 




LAC MOD 


04033 


044000 




DAC E907-2 


04034 


740000 


MOOX 


NOP 


04035 


207553 


f 


LAC Jill 


04036 


740200 




S1A 


04037 


740040 


E509 


HALT 


04040 


204165 




LAC RJtll 


04041 


047553 




DAC Jill 


04042 


051111 




DAC 11111 


04043 


611111 




JMP inn 


04044 


741000 




SKP 


04045 


147553 


RJMP1 


DEM jlH 


04046 


207554 




LAC J222 


04047 


740200 




SZA 


0405'0 


740040 


E510 


HALT 


04051 


204166 




LAC RJ222 


04052 


047554 




DAC J222 


04093 


052222 




OAC 12222 


04054 


612222 




JMP 12222 


04055 


741000 




SKP 


04056 


147554 


RJMP2 


DHM j222 
•EJECT 



/ERROR JMP ,-7» ,*A OR ,+5 FAILED 

/LOAD 4 K WJTM JMP TO 73 

/SEE IF in UPPER 4K now 

/JN UPPER 4K 

/LOWER ok 



/CLEAR ERROR TABLE 

/STORE JMP 70 
/INCR, ADDRESS 

/WILL * SAD 07777 WHEN IN 
/ UPPER 4K 



/ERRORi JMPP,*4, ,*5 OR ,»7 FAILED 
/PRESS CONTINUE TO DETERMINE 
/JMP FAILURE 



/ERROR, RJMP OR JMP TO Hill 
/OR 01111 FAILED 

/STORE JMP ADDRESS IN TABLE 

/JMP TO Hill OR 01111 

/CLEAR ERROR WORD TA8LE 



/ERROR, RJMP OR JMP TO 12222 
/OR 02222 FAILED 



/JMP 122? OR 02222 
/CLEAR ERROR TABLE 
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BX8K 


BX8K 




04057 


207555 




L*C J333 


04060 


740203 




SiA 


04*61 


740040 


E511 


HALT 


34062 


204167 




LAC RJ333 


?4063 


047555 




DAC J333 


04064 


053333 




OAC 13333 


04065 


613333 




JMP 13333 


04066 


741000 




SKP 


04067 


147555 


RJMP3 
/ 


DIM j333 


04070 


207556 


LAC J444 


04071 


740200 




SIA 


04072 


740040 


E512 


HALT 


04073 


204170 




LAC RJ444 


04074 


047556 




OAC J444 


04075 


054444 




OAC 14444 


04076 


614444 




JMP 14444 


04077 


741000 




SKP 


04100 


147556 


RJMP4 
/ 


DEM J444 


04101 


207557 


LAC J555 


04102 


740200 




SfA 


04103 


740040 


£513 


HALT 


04104 


204171 




LAC RJ555 


04105 


047557 




OAC J555 


04106 


055555 




DAC 15555 


04107 


615555 




JMP 15555 


04110 


741000 




SKP 


04111 


147557 


RJMP5 


DIM J555 


04112 


207560 


/ 


LAC J666 


04H3 


740200 




SiA 


04114 


740040 


E514 


HALT 


04115 


204172 




LAC RJ666 


04116 


047560 




OAC J666 


04117 


056666 




OAC 16666 


04120 


616666 




JMP 16666 


04121 


741000 




SKP 


04122 


147560 


RJMP6 
/ 


DIM J666 



/ERROR. RJMP OR JMP TC 13333 
/OR £3333 TAILED 



/JMP TO 13333 OR 03333 
/CLEAR ERROR TABLE 



/ERROR. RJMP OR JMP TO 14444 
/OR 04444 FAILED 



/JMP TO 14444 OR 04444 
/CLEAR ERROR TABLE 



/ERRO«, RJMP OR JMP TO 15555 
/OR 05555 FAILED 



/JMP TO 15555 OR 05555 
/CLEAR ERROR TABLE 



/ERROR i RJMP OR JMP TO 16666 
/OR 06666 FAILED 



/JMP TO 16666 OR 06666 

/CLEAR ERROR TABLE 



.EJECT 



"A! 



67 



9X8K 



BX8K 



04123 


207561 




LAC J777 


04124 


740200 




SZA 


04125 


740040 


E515 


MALT 


34126 


204173 




LAC RJ777 


04127 


047561 




DAC J777 


04131* 


057777 




0AC 17777 


04131 


617777 




JMP 17777 


04132 


741000 




SKP 


04133 


147561 


RJMP7 


DZM J777 


04134 


207563 


f 


LAC J252 


04135 


740200 




SZA 


04136 


740040 


E516 


HALT 


04137 


204174 




LAC RJ252 


04140 


047563 




DAC J252 


04141 


052525 




OAC 12525 


04142 


612525 




JMP 12525 


04143 


741000 




SKP 


04144 


147563 


RJMP8 
/ 


DZM J252 


04145 


207562 


LAC J525 


04146 


740200 




SZA 


04147 


740040 


E517 


HALT 


04150 


204175 




LAC RJ525 


04151 


047562 




OAC J525 


04152 


055252 




DAC 15252 


04153 


615252 




JMP 15252 


04154 


741000 




SKP 


04155 


147562 


RJMP9 
/ 


DZM J525 


04156 


447517 


JSZ WORKS 


04157 


604035 




JMP MODX*l 


04160 


106336 




JMS CCNRAN 


04161 


106362 




JMS CKMO 


04162 


604176 


/ 

/JMP CC 
/ 

JMPSEQ 


JMP TSCAL 






INSTANTS, THESE 


04163 


600112 


JMP SEOUEN 


04164 


604035 


MOO 


JMP MODx*l 


04165 


604045 


RJ1U 


JMP RJMP1 


04166 


604056 


RJ222 


JMP RJMP2 


04167 


604067 


RJ333 


JMP RJMP3 


04170 


604100 


RJ444 


JMP RJMP4 


04171 


604111 


RJ555 


JMP RJMP5 


04172 


604122 


RJ666 


JMP RJMP6 


04173 


604133 


RJ777 


JMP RJMP7 


04174 


604144 


RJ252 


JMP RJMP8 


04175 


604155 


RJ525 


JMP RJMP9 
.EJECT 



/ERROR, PJMP OR JMP TO 17777 
/OR 07777 TAILED 



/JMP TO 17777 OR 07777 
/CLEAR ERROR TABLE 



/ERROR, RJMP OR MP TO 12525 
/OR F2525 FAILED 



/JMP TO 12525 OR 02525 
/CLEAR ERROR TABLE 



/ERROR, RJMP OR JMP TO 15252 
/OR 05252 FAILED 



/JMP TO 15292 OR 05252 

/CLEAR ERROR TABLE 

/CHECK DONE LOOPING 

/LOOP 

/GET NO, FOR NEXT LOOP 

/TEST CAL 

ARC MODIFJEO WHEN JN HI 4K 



pace 68 


BX8K 


BX8K 








/TEST 
/ 

TSCAL 


CAL 


04176 


207564 


L*C CAL0 


04177 


740200 




SZA 


04200 


740040 


E518 


HALT 


04201 


707704 




LEM 


04202 


754000 




CLAtCLl 


04203 


770020 




LAW 10020 


04204 


150704 




DIM 10704 


04205 


207444 




LAC K2021 


04206 


047564 




OAC CAL0 


04207 


204252 




LAC BCAL0 


04210 


040021 




OAC 21 


04211 


610704 




JMP 10704 


04212 


147564 


SCALS0 


0*M CAL0 


04213 


200020 




LAC 20 


04214 


544253 




SAO KCAL0 


04215 


741000 




SKP 


04216 


740040 


E519 


HALT 


04217 


210704 




LAC 10704 


04220 


740200 




S1A 


04221 


740040 


E519A 
/ 

/TEST 
/ 


HALT 






CAL LINK » 1 


04222 


207565 


LAC CAL1 


04223 


740200 




SiA 


04224 


740040 


E520 


HALT 


04225 


744002 




CLL1CML 


04226 


207445 




LAC K2120 


04227 


047565 




OAC CAL1 


04230 


204254 




LAC RCAL1 


04231 


040021 




OAC U 


04232 


610704 




JMP 10704 


04233 


147565 


RCAlSl 


DIM CAL1 


04234 


200020 




LAC 20 


04235 


544255 




SAO KCALE 


04236 


741000 




SKP 


04237 


740040 


E521 


HALT 


04240 


210704 




LAC 10704 


04241 


740200 




SiA 


04242 


740040 


E521A 
/ 


HALT 


04243 


207533 


LAC KHALT 


04244 


040021 




OAC 21 


04245 


447517 




ISZ W0RK3 


04246 


604176 




JMP TSCAL 


04247 


106336 




JMS GENSAN 


04250 


106362 




JMS CKNO 


04251 


604256 




JMP TSJMS 



/ERROR. CAL. FROM 17757 OR 07757 
/CLEAR EXTEND MQCE 
/AC ■ 0i LINK « 2 

/AC ■ 778020 

/CAL AT J0704 OR 00704 

/STORE ERROR CODE 2021 

/RJMP FROM CAL 

/JMP TO 10704 OR 00704 
/CLEAR ERROR TABLE 

/10705 OR 00705 

/ERROR. (20) NOT 210705 OR 200705 

/ERROR <10704 OR 00704} NOT 



/ERROR. CAL FROM 10704 OR 00704 
/LINK « 1 

/STORE ERROR CODE 2120 

/RJMP FROM CAL 

/JMP TO 10704 OR 00704 
/CLEAR ERROR TABLE 

/410705 OR 400705 

/ERROR. 1201 NOT 610705 QR 600705 

/ERROR (10704 OR 00704) NOT J! 



/CHECK DONE LOOPING 

/LOOP 

/GET NO, FOR NEXT LOOP 

/TEST JMS 



.EJECT 



P*4S1^9 BX8K BX8K 

THESE ARE MODIFIED WHEN JM Hi 4K 







/C*L CONSTANTS, T 


34252 


604212 


RCAL0 


JMP RCALS0 


0*253 


210705 


KCAU0 


210705 


04254 


604233 


RCAui 


JMP RCALS1 


04255 


610705 


KCALE 


610705 
.EJECT 



PAGE 70 


BX8K 


BX8K 








/TEST JMS 

J 


04256 


207566 


TSJMS 


L*C JSM71 


04257 


740200 




S2A 


04265" 


740043 


E522 


MALT 


04261 


744000 




CLL 


04262 


204543 




LAC RJSM71 


04263 


051112 




OAC 11112 


04264 


204544 




LAC RSM71 


04265 


047777 




DAC 07777 


04266 


047566 




OAC JSM71 


04267 


771112 




LAW 11112 


04270 


607777 




JMP 07777 


04271 


147566 


RJMS71 


02* JSM71 


04272 


211111 




LAC 11111 


04273 


544602 




SAO K210K 


04274 


741000 




SKP 


04275 


740040 


E523 


HALT 


04276 


207567 




LAC JSM72 


04277 


740200 




S2A 


04300 


740040 


E524 


HALT 


04301 


707704 




LEM 


04302 


744000 




CLL 


04303 


204546 




LAC KJSM72 


04304 


052223 




OAC 12223 


04305 


204547 




LAC RSM72 


04306 


047776 




DAC 07776 


04307 


047567 




OAC JSM72 


04310 


772223 




LAW 12223 


04311 


607776 




JMP 07776 


04312 


147567 


RJMS72 


02M JSM72 


04313 


212222 




LAC 12222 


04314 


544603 




8A0 K277 


04315 


741000 




SKP 


04316 


740040 


E525 


HALT 


04317 


207570 




LAC JSM73 


04320 


740200 




SEA 


04321 


740040 


E526 


HALT 


04322 


707704 




LEM 


04323 


744000 




CLL 


04324 


204551 




LAC RJSm73 


04325 


053334 




DAC 13334 


04326 


204552 




LAC RSM73 


04327 


047775 




OAC 07775 


04330 


047570 




OAC JSM73 


04331 


773334 




LAW 13334 


04332 


607775 




JMP 07775 
.EJECT 



/ERROR. JMS FROM 07777 TO 11111 

/OR FROM 17777 TO 01111 

/LINK » 

/JMP TO RJMS71 

/RJMP From JMS DEST'N: 

/JMS 11111 



/AC ■ 771112 
/CLEAR ERROR TABLE 



/ERROR. (Hill OR 01111) NOT 
/210000 OR 200000 



/ERROR, JMS FROM 07776 TO 12222 
/OR FROM 17776 TO 02222 



/JMP TO RJMS72 
/JMS 12222 

/AC « 772223 

/CLEAR ERROR TABLE 



/ERROR. (12222 OR 02222) NOT 
Z207777 OR 217777 



/ERRORi JMS FROM 07775 TO 13333 
/0« FROM 17775 TO 03333 



/JMP TO RJMS73 
/JMS 13333 

/AC « 773334 



'AG 



BXBK 



BX8K 



P4333 


147570 


F4334 


213333 


24335 


544604 


04336 


741000 


04337 


740040 


04340 


207571 


04341 


7402(50 


24342 


740040 


04343 


707704 


04344 


744000 


04345 


204554 


04346 


054445 


04347 


204555 


04350 


047774 


04351 


047571 


04352 


774445 


04353 


607774 


04354 


147571 


04355 


214444 


04356 


544605 


04357 


741000 


04360 


740040 


04361 


207572 


04362 


740200 


04363 


740040 


04364 


707704 


04365 


744000 


04366 


204557 


04367 


055556 


04370 


204560 


04371 


047773 


04372 


047572 


04373 


775556 


04374 


607773 


04375 


147572 


04376 


215555 


04377 


544606 


04400 


741000 


04401 


740040 


04402 


207573 


04403 


740200 


04404 


740040 



RJMS73 



E527 



E528 



RJMS74 



E529 



E530 



RJMS75 



E531 



E532 



OZM 


JSM73 


LAC 


13333 


SAD 


K276 


SKP 




WALT 


LAC 


JSM74 


SZA 




HALT 


LEH 




CLl 




LAC 


RJSM74 


OAC 


14445 


L*C 


RSM74 


OAC 


07774 


DAC 


JSM74 


LAW 


14445 


JMP 


07774 


DIM 


JSM74 


LAC 


14444 


SAD 


K275 


SKP 




HAL1 


^ 


LAC 


JSM75 


SEA 




WALT 




LEM 




CLL 




LAC 


RJSM75 


OAC 


15556 


LAC 


RSM75 


DAC 


07773 


DAC 


JSM75 


LAW 


15556 


JMP 


07773 


08M 


JSM75 


LAC 


15555 


SAO 


K274 


SKP 




HALT 




LAC 


JSM76 


SZA 




HALT 





.EJECT 



/CLEAR ERROR TA8LE 



/ERROR. (13333 OR 03333) \OT 
Z207776 OR 21777* 



/ERROR. JMS FROM 07774 TO 1<J444 
/OR FROM 17774 TO (*4444 



/JMP RJMS74 
/JMS 14444 

/AC » 774445 

/CLEAR ERROR TABLE 



/ERROR, (14444 OR 04444) hOT 
Z207775 OR 217775 



/ERROR, JMS FROM 07773 TO 15555 
/OR FROM 17773 TO 05555 



/JMP TO RJMS75 
/JMS 15555 

/AC « 775556 

/CLEAR ERROR TABLE 



/ERROR, (15555 OR 05555} NOT 
Z207774 OR 217774 



/ERROR, JMS FROM 07772 TO 16666 
/OR 17772 TO 06666 
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BX8K 


04405 


707704 


04406 


744000 


04407 


204562 


04410 


056667 


04411 


204563 


04412 


047772 


04413 


047573 


04414 


776667 


04415 


607772 


04416 


147573 


04417 


216666 


04420 


544607 


04421 


741000 


04422 


740040 


04423 


207575 


04424 


740200 


04429 


740040 



BX8K 



RJMS76 



E533 



E536 



LEM 
CLL 

LAC RJSM76 
OAC 16667 
LAC RSH76 
OAC 07772 
OAC JSM76 
LAW 16667 
JMP 07772 
D2M JSM76 
LAC 16666 
SAD K273 
SKP 
MALT 

LAC JS252 

SIA 

HALT 

.EJECT 



/JMP TO PJMS76 
/JMS 16666 

/AC « 776667 

/CLEAR ERROR TABLE 



/ERROR. (16666 OR 06666) i^OT 
/207773 OR 217773 



/ERROR. JMS PROM 12525 TO 15252 
/OR PROM 02525 TO 05252 



pa 



bxbk 



BX8K 



04426 


744002 




CLL5CML 


/LINK « 


1 


04427 


204567 




LAC RJSM25 




/JMP TO RJMS14 


04430 


055253 




OAC 15253 






04431 


204570 




LAC RSH25 




/JMS 15252 


04432 


052525 




OAC 12525 






04433 


047575 




OAC JS252 






04434 


775253 




LAW 15253 




/AC ■ 775253 


04435 


612525 




JMP 12525 






04436 


147575 


RJMS14 


DZM JS252 




/CLEAR ERROR TABLE 


04437 


215252 




LAC 15252 






04440 


544610 




SAO K626 




/612326 OR 602526 


04441 


741000 




SKP 






04442 


740040 


E537 


MALT 


/ERROR, 
/612526 


(15232 OR 05252) NOT 
OR 602526 


04443 


207576 




LAC JS525 






04444 


740200 




S2A 






04443 


740040 


E538 


HALT 


/ERROR, 


JMS PROM 13252 TO 12525 










/OR 03252 TO 02525 


04446 


744002 




CLLICML 


/LINK « 


1 


04447 


204572 




LAC RJSm52 




/RJMP To RJMS15 


04450 


052526 




OAC 12526 






04451 


204573 




LAC RSM52 




/JMS 12325 


04452 


053252 




OAC 15252 






04453 


047576 




OAC JS525 






04454 


772526 




LAW 12526 




/AC ■ 772526 


04455 


615252 




JMP 15252 






04456 


147576 


RJMS15 


D2M JS525 




/CLEAR ERROR TABLE 


04457 


212525 




LAC 12525 






04460 


344611 




SAD K615 




/615853 OR 605233 


04461 


741000 




SKP 






04462 


740040 


E539 


HALT 


/ERROR, 
/615253 


(12523 OR 02325) NOT 
OR 605253 






/PDP-15 


BASIC EXERCISER 


•• TAPE 3 






/TEST JMS SERIES 






04463 


207577 


/ 


LAC JSSS 






04464 


740200 




SEA 






04465 


740040 


E540 

/ 


HALT 


/ERROR, 


JMS SERIES FAILED 


04466 


744002 


CLLICML 


/LINK i 


1 


04467 


104470 


JS1 


JMS ,*1 






04470 


740040 


E541 


HALT 


/ERROR, 


JMS SERIES 


04471 


104472 


JS2 


JMS ,*1 






04472 


740040 


E542 


HALT 


/ERROR, 


JMS SERIES 


04473 


104474 


JS3 


JMS ,♦! 






04474 


740040 


E543 


HALT 


/ERROR, 


JMS SERIES 


04475 


707704 




LEM 






04476 


744000 




CLL 






04477 


104500 


jS4 


JMS ,♦! 






04500 


740040 


E544 


HALT 


/ERROR, 


JMS SERIES 


04501 


147577 


RJMSS 


OHM JSSS 




/CLEAR ERROR TABLE 


04502 


204576 




LAC KJS1 




/TEST JSli LINK s l 


04503 


347442 




TAO K600K 






04504 


740001 




CMA 






04505 


344470 




TAD JS1»1 







pace 74 


BXBK 


BXBK 




04506 


740001 




CMA 


04507 


740200 




52* 


04510 


740040 


E545 


HALT 


04511 


204577 




I, AC KJS2 


04512 


347442 




TAD K600K 


04513 


740001 




CMA 


04514 


344472 




TAD JS2+1 


04515 


740001 




CMA 


04516 


740200 




SZA 


04517 


740040 


E546 


HALT 


04520 


204600 




L*C KJS3 


04521 


347442 




TAD K600K 


04522 


740001 




CMA 


04523 


344474 




TAD JS3*1 


04524 


740001 




CMA 


04525 


740200 




SZA 


04526 


740040 


E547 


HALT 


04527 


204601 




LAC KJS4 


04530 


347441 




TAD K200K 


04531 


740001 




CMA 


04532 


344500 




TAD JS«*1 


04533 


740001 




CMA 


04534 


740200 




SZA 


04535 


740040 


E548 
/ 


HALT 


04536 


447517 


152 W0RK3 


04537 


604256 




JMP TSJMS 


04540 


106336 




JMS GENRAN 


04541 


106362 




JM8 CKNO 


04542 


604613 




JMP TSXCT 
•EJECT 



/ERROPi JS1*1 

/TEST JS2» LI*** s 1 



/ERROR, JS2*1 

/TEST JS3i LINK s 1 



/ERRORi JS3*1 

/TEST JS4i EXT « 0» LINK « z 



/ERROR, JS4*l 

/CHECK DONE LOOPING 

/LOOP 

/GET NO. FOR NEXT LOOP 

/TEST XCT 



PAG^75 



BX8K 



8X8K 







/CONSTANTS FOR JMS, 


04543 


604271 


/ 

RJSM71 


JMP RJMS71 


P4544 


111111 


RSH71 


JMS 11111 


04545 


010030 


K12000 


1000? 


04546 


604312 


RJSM72 


JMP RJMS72 


04547 


112222 


RSM72 


JMS 12222 


04550 


007777 


K77 


07777 


04551 


604333 


RJSM73 


JMP RJMS73 


04552 


113333 


RSM73 


JMS 13333 


04553 


007776 


K76 


07776 


04554 


604354 


RJSM74 


JMP RJMS74 


04555 


114444 


RSM74 


JMS 14444 


04556 


007775 


«75 


07775 


04957 


604375 


RJSM75 


JMP RJMS75 


04560 


115555 


RSM75 


JMS 15555 


04561 


007774 


K74 


07774 


04562 


604416 


RJSM76 


JMP RJMS76 


04563 


116666 


RSH76 


JMS 16666 


04564 


007773 


K73 


07773 


04565 


117777 


RSM77 


JMS 17777 


04566 


007772 


K72 


07772 


04567 


604436 


RJSM25 


JMP RJMS14 


04570 


115252 


RSM25 


JMS 15252 


04571 


412526 


K426 


412526 


04572 


604456 


RJSM52 


JMP RJMS15 


04573 


112525 


RSM52 


JMS 12525 


04574 


007771 


K71 


07771 


04579 


415253 


K415 


415253 


04976 


004470 


KJS1 


JS1*1 


04977 


004472 


KJS2 


JS2*1 


04600 


004474 


KJS3 


JS3*1 


04601 


004900 


KJS4 


JS4*1 


04602 


210000 


K210K 


210000 


04603 


207777 


K277 


207777 


04604 


207776 


K276 


207776 


04605 


207775 


K275 


207779 


04606 


207774 


K274 


207774 


04607 


207773 


K273 


207773 


04610 


612526 


K626 


612926 


04611 


615253 


K615 


619293 


04612 


215253 


K2152 
/ 


219253 



MODIFIED WHEN JM Hj 4K 



.EJECT 
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BX6K 



BX8K 



04613 
04614 
04615 
04616 
04617 
04620 
04621 
04622 



04623 
04624 
04629 
04626 
04627 
04630 
04631 



04632 
04633 
04634 
04635 
04636 
04637 



04640 
04641 
04642 
04643 
04644 

04649 

04646 
04647 

04650 



04651 
04692 
04693 
04654 
04659 
04656 
04657 
04660 



754003 
404615 
740000 
740400 
740040 
740001 
740200 
740040 



754000 
404625 
740000 
741400 
740040 
740200 
740040 



407501 
740040 
750001 
407502 
740200 
740040 



750000 
407454 
740001 
740200 
740040 

750001 
057777 
405066 

740040 



744002 
777777 
097777 

409070 
740200 
740040 
741400 

740040 



/TEST 
/ 

TSXCT 



E549 



E550 
/ 

/TEST 



E55l 

E552 
/ 

/TEST 

E553 



E554 

/ 

/TEST 



E555 

/TEST 



E556 
/ 

/TEST 



E557 

E558 



XCT 

CUAJCMA'CLLtCWL 

XCT ,*1 

NOP 

SNL 

HALT 

CMA 

S2A 

HALT 

EXECUTE NOP* AC ■ 
CLAJCLL 
XCT ,*1 
NOP 
SEL 
HALT 
SZA 
HALT 

XCT SKP 
XCT KSKP 
HALT 

clajcma 

XCT KCLA 

SZA 

HALT 

XCT LAW 

CL* 

XCT K7S 

CMA 

SZA 

HALT 
XCT IS2 

CLAICMA 

OAC 17777 
XCT XCTISI 
HALT 

XCT TAD 
CLLtCML 
LAW 17777 
OAC 17777 
XCT XCTTAO 
SZA 
HALT 

SIL 

HALT 
.EJECT 



/AC ■ ONESi LINK « 
/MOP 

/ERROR* XCT MOP» LI^K ivAS RESET 

/ERRORl XCT N'OPj AC *-OT ONES 

0i LINK ■ 

/AC ■ 0» LINK = ?. 



/ERRORl XCT MOPj LINK HAS SET 
/ERRORl XCT NOPl AC NOT 



/SKIP 
/ERRORl XCT SKP FAILED 
/AC ■ ONES 

/CLA 

/ERRORl XCT CLA FAILED 



/AC I 
/LAW * 17777 
/AC * 

/ERRORl XCT LAW FAILED 
/AC i ONES 

/ISZ 17777 
/ERRORl XCT ISI FAILED TO SKP 

/LINK » 1 

/ac « ones 

/177778777777 

/TAD Kl 

/ERRORl XCT TAD FAILED. AC NOT 
/ERRORl XCT TAD FAILED LINK 



PftG-r 77 


BX8K 


BX8K 








/TEST 


XCT RAL» AC 


04661 


754003 




CUlCMAiCL 


04662 


407524 




XCT XCTRAU 


04663 


740001 




CMA 


04664 


740200 




SEA 


04665 


740040 


C559 


HALT 


04666 


744400 




SNUCLL 


04667 


740040 


E560 

/ 

/TEST 


HALT 






XCT DAC 


04670 


207450 




LAC K3S 


04671 


405067 




XCT XCTDAC 


04672 


347451 




TAD K4S 


04673 


740001 




CMA 


04674 


740200 




S2A 


04*75 


740040 


E561 


HALT 



.EJECT 



/RAL 
/AC • 

/ERROR! XCT RAL TAILTD AC DROPPED A PIT 

/ERRORJ XCTRAL FilLED LINK DROPPED 



/AC « 333333 

/QAC 17777 
/AC s 777777 
/AC ■ 

/ERRORl XCT DAC rAILEDi K3S 
/NOT STORED AT 17777 



pace 78 


BXBK 


BX8K 








/TEST 
/ 


XCT JMS 


04676 


207600 


LAC XCTH 


04677 


740200 




S2A 


04700 


740040 


E562 


HALT 


04701 


205044 




LAC XT11S 


04702 


047600 




DAC XCTll 


04703 


051111 




DAC 11111 


04704 


205045 




LAC XTRll 


04705 


056666 




DAC 16666 


04706 


205046 




LAC XT1R 


04707 


051112 




DAC 11112 


04710 


611111 




JMP 11111 


04711 


147600 


RXCTi 


D2M XCTll 


04712 


211111 




LAC 11111 


04713 


549047 




SAO K12 


04714 


741000 




SKP 


04715 


740040 


E563 


HALT 


04716 


207601 




LAC XCT12 


04717 


740200 




S2A 


04720 


740040 


£564 


HALT 


04721 


205050 




LAC XT12S 


04722 


047601 




DAC XCT12 


04723 


052222 




DAC 12222 


04724 


205051 




LAC XTR12 


04725 


055555 




DAC 15555 


04726 


205052 




LAC XT2R 


04727 


092223 




OAC 12223 


04730 


612222 




JMP 12222 


04731 


147601 


RXCT2 


D2H XCT12 


04732 


212222 




LAC 12222 


04733 


545053 




SAO K23 


04734 


741000 




SKP 


04735 


740040 


E565 


HALT 


04736 


207602 




L*C XCT13 


04737 


740200 




SIA 


04740 


740040 


E566 


HALT 



.EJECT 



/ERROR. XCT (16666 R 06666) 
/fROM 11111 OR 01111 

/XCT U6666 OR 06666) 

/OR 01H1 

/JMS lllll OR 01111 

/OR 06666 

/RJMP To RXCT1 

/OR 01112 

/0* 01111 AND XCT (16666 OR 06666) 

/CLEAR ERROR TABLE 

/OR 01111 



/ERROR. RJMP ADRi NOT 21111? 
/OR 201112 



/ERROR. XCT (15595 OR 05555) 
/rROM 12222 OR 02222 

/XCT (15555 OR 05555) 



/JMS 12222 OR 02222 
/RJMP TO RXCT2 

/CLEAR ERROR TABLE 



/ERROR. RJMP NOT 212823 
/OR 202223 



/ERROR, XCT (14444 OR 04444) 
/fROM 13333 OR 03333 



Atre 79 



BX8K 



B)(8!< 



04741 


205054 




LAC XT13S 


04742 


047602 




OAC XCT13 


04743 


053333 




OAC 13333 


04744 


205055 




LAC XTR13 


04745 


054444 




DAC 14444 


04746 


205056 




LAC XT3R 


04747 


053334 




DAC 13334 


04750 


613333 




JMP 13333 


04751 


147602 


RXCT3 


OZM XCT13 


04752 


213333 




LAC 13333 


04753 


545057 




SAD K34 


04754 


741000 




SKP 


04755 


740040 


E567 


HALT 


04756 


207603 




LAC XCT17 


04757 


740200 




SiA 


04760 


740040 


E568 


HALT 


04761 


205060 




LAC XT17S 


04762 


047603 




OAC XCT17 


04763 


047776 




OAC 07776 


04764 


205061 




LAC XTR17 


04765 


057776 




OAC 17776 


04766 


205062 




LAC XT4R 


04767 


047777 




OAC 07777 


04770 


607776 




JMP 07776 


04771 


147603 


RXCT4 


DZM XCT17 


04772 


207776 




LAC 07776 


04773 


544603 




SAO K277 


04774 


741000 




SKP 


04775 


740040 


E569 


HALT 


04776 


207604 




LAC XCT125 


04777 


740200 




S1A 


05000 


740040 


E570 


HALT 


05001 


205063 




LAC XCT12S 


05002 


047604 




OAC XCT125 


05003 


055252 




DAC 15252 


05004 


205064 




LAC XCTR12 


05005 


052525 




DAC 12525 


05006 


205065 




LAC XT5R 


05007 


055253 




DAC 15253 


05010 


615252 




JHP 15252 


05011 


147604 


RXCT5 


OZM XCT125 


05012 


215252 




LAC 15252 


05013 


544612 




SAD K2152 


05014 


741000 




SKP 


05015 


740040 


E571 


HALT 
.EJECT 



/XCT (14444 OR 04444) 

/J*S 13333 OP 73333 
/RJMP To RXCT3 

/CLEAR ERROR TABLE 
/ERROR, RJMP NOT 213334 OR 223334 



/ERROR, XCT (17776 OR 07776) 
/rROM 07776 OR 17776 

/XCT (17776 OR 07776) 

/OR 17776 

/JMS 07776 OR 17776 

/OR 07776 

/RJMP To RXCT4 

/OR 17777 

/O* 17776 

/CLEAR ERROR TABLE 

/FOR 17776 



/ERROR, RJMP NOT 207777 OR 217777 



/ERROR. XCT (12525 OR 02525) 

/fROM 15252 OR 05252 

/XCT (12525 OR 02525) 
/OR 05252 

/JMS 15252 OR 05252 
/RJMP TO RXCT5 



/CLEAR ERROR TABLE 



/ERROR, RJMP MOT 2l5?53 OR 205253 
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BX8K 


BXBK 










/TEST XCT SERIES 




05016 


754003 


/ 


CIA!CMA>CLU 


!CML /AC * ONESi LINK ■ 1 


05017 


405020 




XCT ,*U 


VCT ,*1J XCT .*1 


05020 


405021 








05021 


405022 








05022 


405023 




XCT ,*H 


XCT ,*ll XCT .+1 


05023 


405024 








05024 


405025 








05025 


405026 




XCT ,+U 


XCT ,*ll XCT ,*1 


05026 


405027 








05027 


405030 








05030 


405031 




XCT ,*1 




05031 


740000 




NOP 




05032 


740001 




CMA 




05033 


740200 




SZA 




05034 


740040 


E572 


HALT 


/ERROR. XCT SERIES TAILED AC 


05035 


740400 




SNU 




05036 


740040 


E573 


HALT 


/error, link changed 


05037 


447517 




ISE W0RK3 


/CHECK DONE LOOPING 


05040 


604613 




JMP TSXCT 


/loop 


05041 


106336 




JMS GENRAN 


/GET NO FOR NEXT LOO 


05042 


106362 




JMS CKNO 




05043 


605071 




JMP LACIN 


/TEST LAC INDIRECT 






/XCT CONSTANTS^ MOOlFlED WHEN IN UPPER 4K 


05044 


416666 


XT11S 


XCT 16666 




05045 


111111 


XTRll 


JMS 11111 




05046 


604711 


XTIR 


JMP RXCT1 




05047 


211112 


M 


211112 




05050 


415555 


XT12S 


XCT 15555 




05051 


112222 


XTR12 


JMS 12222 




05052 


604731 


XT2R 


JMP RXCT2 




05053 


212223 


K23 


212223 




05054 


414444 


XT13S 


XCT 14444 




05055 


113333 


XTR13 


JMS 13333 




05056 


604751 


XT3R 


JMP RXCT3 




05057 


213334 


K34 


213334 




05060 


417776 


XT17S 


XCT 17776 




05061 


107776 


XTR17 


JMS 07776 




05062 


604771 


XT4R 


JMP RXCT4 




05063 


412525 


XCT12S 


XCT 12525 




05064 


115252 


XCTR12 


JMS 15252 




05065 


605011 


XT5R 


JMP RXCT5 




05066 


457777 


XCTIS2 


ISZ 17777 




05067 


057777 


XCTDAC 


OAC 17777 




05070 


347412 


xcttao 


TAD Kl 
.EJECT 





ONES 
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/TEST 


LAC INDIRECT 


05071 


204550 


LAC IN 


LAC K77 


05072 


057777 




OAC 17777 


05073 


207511 




LAC M4B0K 


09074 


047777 




OAC 07777 


05075 


237777 




LAC* 17777 


05076 


347435 




TAD K400K 


05077 


740001 




CMA 


05100 


740200 




SZA 


05101 


740040 


E5B4 
/ 


HALT 


05102 


204553 


LAC K76 


05103 


056666 




DAC 16666 


05104 


207510 




LAC M40K 


05105 


047776 




DAC 07776 


05106 


236666 




LAC* 16666 


05107 


347434 




TAO K40K 


05110 


740001 




CMA 


05111 


740200 




SZA 


05112 


740040 


£585 
/ 


HALT 


05113 


204556 


L*C K75 


05114 


055555 




DAC 15555 


05115 


207507 




LAC M4K 


05116 


047775 




OAC 07775 


05117 


235555 




LAC» 15555 


05120 


347430 




TAD K4K 


05121 


740001 




CMA 


05122 


740200 




SEA 


05123 


740040 


E586 
/ 


HALT 


05124 


204561 


LAC K74 


05125 


054444 




DAC 14444 


05126 


207506 




LAC M400 


05127 


047774 




DAC 07774 


05130 


234444 




LAC* 14444 


05131 


347425 




TAD K400 


05132 


740001 




CMA 


05133 


740200 




SZA 


05134 


740040 


E587 


HALT 


05135 


204564 


/ 


LAC K73 


05136 


053333 




DAC 13333 


05137 


207505 




LAC M40 


05140 


047773 




OAC 07773 


05141 


233333 




LAC* 13333 


05142 


347423 




TAO K40 


05143 


740001 




CMA 


05144 


740200 




SZA 


05145 


740040 


E588 


HALT 
.EJECT 



•(17777 rR F7777) = F7777 OR 17777 
Z377777 
/OR 17777 
/OR 07777 

/AC s 777777 



/ERROR. LAC* 17777 OR 07777 FAILED 



/(16666 OR 06666) = 07776 OR 17776 
Z737777 

/AC * 737777 

/AC « 777777 



/ERROR. LAC* 16666 OR 06666 TAILED 



/(15555 OR 05555) = 07775 OR 17775 
/AC n 773777 

/AC ■ 773777 
/AC ■ 777777 



/ERROR. LAC* 15555 OR 05555 FAILED 



/(14444 OR 04444) ' 07774 OR 17774 
/AC * 777377 

/AC » 777377 

/AC ■ 777777 



/ERROR, LAC* 14444 OR B4444 FAILED 



/(13333 oR 03333) » U7773 OR 17773 
/AC ■ 777737 

/AC a 777737 
/AC • 77777 



/ERROR. LAC* 13333 33 t:3333 FAILED 



page ez 



bxbk 



8X6K 



05146 
05147 
05153 
05151 
05152 
05153 
05154 
05155 
05156 

05157 
05160 
05161 
05162 
05163 
05164 
05165 
05166 
05167 

05170 
05171 
05172 
05173 
05174 
05175 
05176 
05177 
05200 

05201 
05202 
05203 
05204 



204566 

052222 
207504 

047772 
232222 

347414 

740001 
740200 
740040 

204574 
051111 
207503 
047771 
231111 
347412 

740001 
740200 
740040 

205326 
055252 
207467 
052525 

235252 
347466 

740001 
740200 
740040 

447517 
605071 
106336 

106362 



E589 
/ 



E590 
/ 



E591 
/ 



L.AC K72 
DAC 12222 
LAC M4 
OAC 07772 
LAC» 12222 
TAD K4 
CMA 
SEA 
MALT 

LAC K71 
OAC 11111 
LAC Ml 
OAC 07771 
LAC# 11111 
TAO Kl 
CMA 
SEA 
HALT 

LAC JNK52 
OAC 15252 
LAC K101 
OAC 12525 
LAC» 15252 
TAO K010 
CMA 
S2A 
HALT 

IS! M0RK3 
JMP LACIN 
JMS GENRAN 
JMS CKNO 
■EJECT 



/(12222 CR 02222) ■ P7772 OR 17772 
/AC * 777773 

/AC « 777773 
/AC » 777777 



/ERROR, LAC» 12222 OR 02222 FAILED 



/(lllll OR 01111) « 97771 OR 17771 
/AC * 777776 

/AC ■ 777776 

/AC • 777777 



/ERROR, LAC» lllll OR 01111 FAILED 

/(15252 OR 05252) = f!2525 OR 12525 
/AC » 525252 

/AC • 525252 

/AC a 777777 

/ERROR. LAC« 15252 OR 05252 FAILED 

/CHECK DONE LOOPING 
/LOOP 
/GET NO, FOR NEXT LOOP 



p*S; 



BX8K 



BX8K 







• TEST 


XCT JMS INDIRECT 


05205 


744000 


XTJMS1 


: CLL 


05206 


750000 




CIA 


05207 


547605 




SAD JST77 


05210 


741000 




SKP 


05211 


740040 


E592 


HALT 


05212 


206006 


/ 


LAC K17776 


05213 


047777 




OAC 07777 


05214 


205327 




LAC JKISH 


05215 


047605 




DAC JST77 


05216 


055252 




DAC 15252 


05217 


205330 




LAC RJMU 


05223 


057777 




OAC 17777 


05221 


415252 




XCT 15252 


05222 


741000 




SKP 


05223 


147605 


RJSU 


OIM JST77 


05224 


217776 




LAC 17776 


05225 


304550 




ANO K77 


05226 


545331 




SAD RJSUX 


05227 


751000 




CLA1SKP 


05230 


740040 


E593 

/ 
/ 
/TEST 

> 


MALT 






JMS INDIRECT 


05231 


744002 


/ 


STL 


05232 


750000 




CLA 


05233 


547606 




SAO JST66 


05234 


74100S 




SKP 


05235 


74-0040 


E594 
/ 


HALT 


05236 


2«««23 


LAC Klllll 


05237 


056666 




OAC 16666 


05240 


205332 




LAC JSI66 


05241 


047606 




DAC JST66 


05242 


055252 




OAC 15252 


05243 


205333 




LAC RJMI2 


05244 


051112 




DAC 11112 


05245 


615252 




JMP 15252 


05246 


741000 




SKP 


05247 


147606 


RJSI2 


OEM JST66 


05250 


211111 




LAC 11111 


05251 


544611 




SAD K615 


05252 


751000 




CLAJSKP 


05253 


740040 


E595 


HALT 



/ERROR, JMS DEST'B ERROR 

/DIRECT ADDRESS 

/JMS« 07777 OR 17777 
/ERROR TABLE 

/JMP RJS!l 

/XCT TEST 

/RJSUX » RJSI1.1 

/ERROR (17776 OR 07776) NOT = 
/TO RJSIlt.1 



.EJECT 



/ERROR, JMS OEST'N ERROR 

/DIRECT AQR, lllll OR 01111 
/OR 06666 
/JMS* 16666 OR 06666 

/JMS* 16666 OR 06666 AT 15252 
/OR 05252 

/JMP RJSI2 
/OR 01112 

/OR 05252 

/CLEAR ERROR TABLE 



/ERROR, RJMP ADR, (Hill OR ?1111) 
/NOT 615253 <3R 6"5253 



pace 84 



BXBK 



BX3K 



05254 
05255 
P5256 
05257 
05260 
05261 
05262 
05263 
05264 

05265 
05266 
05267 
05270 
05271 
05272 
05273 
05274 
05275 

05276 
05277 

05300 
05301 

05302 
05303 
05304 
05305 
05306 
05307 
05310 
05311 
05312 
05313 
05314 
05315 
05316 
05317 

05520 
05321 
05322 
05323 

05324 
05325 



750000 
547607 
741000 
740040 
206021 
055555 
205335 
047607 
055252 

205336 
052223 
615252 

741000 
147607 
212222 
544611 
751000 
740040 

750000 
547610 

741000 
740040 

206017 
054444 
205337 
047610 
055252 
205340 
053334 
615252 
741000 
147610 
213333 
544611 
751000 
740040 

447517 

605205 
106336 
106362 
700004 
605341 



E596 



RJ513 



E597 



E598 
/ 



RJSI4 



E599 



CIA 

SAO JST55 
SKP 
HALT 

LAC K12222 
OAC 15555 
LAC JS155 
OAC JST55 
OAC 15252 

LAC RJMJ3 
OAC 12223 
JMP 15252 
SKP 

02M JST55 
LAC 12222 
SAD K615 
CLAtSKP 
HAL? 

CLA 

SAD JST44 

SKP 

MALT 

LAC K13333 
OAC 14444 
LAC JSI44 
OAC JST44 
OAC 15252 
LAC RJMI4 
OAC 13334 
JMP 15252 
SKP 

02M JST44 
LAC 13333 
SAO K615 
CLAJSKP 
HALT 

ISI W0RK3 

JMP XTJMSI 

JMS GENRAN 

JMS CKMQ 

CLOF 

JMP XTXCT 

.EJECT 



/ERROR, JMS DEST'N ERROR 
/DIRECT AQR, 12222 OR P2222 
/OR 055555 

/JMS« 15555 OR 25555 

/JMS« 15555 PR 05555 AT 
/15252 OR ^5252 

/JMP RJST3 
/OR 02223 
/OR 05252 

/CLEAR ERROR TABLE 
/OR 02222 



/ERROR, RJMP AOR, C12222 0" (?2222> 
/NOT 615253 OR 6E5253 



/ERRORi JMS DEST'N ERROR 

/DIRECT AORi 13333 OR 83333 
/OR 04444 
/JMS» 14444 OR 04444 

/OR 05252 

/OR 03334 
/OR 05252 

/CLEAR ERROR TABLE 
/QR 03333 



/ERROR. RJMP ADR {13333 OR 03333) 
/NOT 615253 OR 605253 

/CHECK DONE LOOPING 
/LOOP 
/GET NO, FOR NEXT LOOP 



/TEST XCT INDIRECTS 
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BX6K 



Bx8K 



05326 
05327 
05330 
05331 
05332 
05333 
05334 
05335 
05336 
05337 
05340 



05342 
05343 

05344 
05345 
09346 
05347 
05350 
05351 
05352 
05353 



05354 
05355 
05356 
05357 

05360 
05361 



012525 
127777 
605223 
005222 
136666 
605247 
015253 
135555 
605271 
134444 
605313 



05341 700002 



207411 
057777 
205412 
040000 
777777 
052525 
437777 
212525 
740200 
740040 



2074H 
057777 
777777 
040000 
477777 
740040 



/CONSTANTS FOR LAOi XCT JMS# MOOlFIEO 

/WHEN IN UPPER 4K 

/ 

INK52 12525 

JMSJ1 JMS» 07777 

RJMU JMP RJSU 

RJSUX RJSI1*! 

JSJ66 JMS« 16666 

RJMI2 JMP RJSJ2 

K15253 15253 

JSI55 JMS» 15555 

RJM13 JMP PJSJ3 

JSI44 JMS» 14444 

RJMJ4 JMP RJSJ4 

/pdp^is basic exerciser - tape 6 

/test xct indirect 

/ 

XTXCT 



E600 

/ 

/TEST 
/ 



E601 



I0F /PI OFF FOR XCT» TO USE 

/LOCATION 

LAC K0 

DAC 17777 /OR 07777 

LAC XCTD2M 

DAC /DZM 12525 OR 02525 

LAW 17777 

DAC 12525 

XCT» 17777 

LAC 12525 

SZA 

HALT 



/(12525 OR 02525) 
/OR 07777 

/OR 02525 



■ 777777 



|SI INDIRECT, 

LAC K0 
DAC 17777 
LAW 17777 
DAC 

IS2« 17777 
HALT 
.EJECT 



/ERROR, XCT« A DIM FAILED 
/(12525 OR 02525J NOT 777777 

PI IS OFF 



/OR 07777 
/<0> ■ 777777 

/ERROR !S2« FAILED TO SKIP/ 
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BX8K 



BX8K 



05362 
05363 

05364 
05365 
05366 
05367 

05370 
05371 
05372 
05373 

05374 
05375 
05376 
05377 

05400 
05401 
05402 
05403 
05404 
05405 
05406 
05407 
05410 
05411 



777777 

040017 
040010 
205413 
040000 
740031 
420017 
547412 
741000 
740040 

447517 

605341 
106336 
106362 

207501 
040001 
750004 
740010 
740100 
700042 
507440 
741200 
106614 
605414 



/TEST XCM ADD* PI 

/ 

L*W -1 
DAC 17 
DAC 10 
LAC ADDI 
DAC Z 
CMAMAC 
XCT* 17 
SAO Kl 
SKP 

E602 HALT 

IS1 WQRK3 

JMP XTXCT 

JMS 6ENRAN 

JMS CKNO 

LAC KSKP 

DAC 1 

LAS 

RAL 

SNA 

ION 

AND K20K 

SNA 

JMS SETCLK 

JMP AUTOIN 

.EJECT 



IS OFF 



/C(17) * 777777 

/ADD* 10 
/AND* 17776 OR 07776 

/ac » 457770 (Complement of and* io>. 

/ADO ADD» 10 WITH ITS CQHPLEMENT 
/AC MUST EQUAL OCTAL 1 

/ERRQRi XCT« 17 

/FOLLOWED BY ADD» 10 FAILED, 

/CHECK DONE LOOPING 

/LOOP 
/GET NO, FOR NEXT LOOP 



/RESTORE LOC 1 



/P! BACK ON 

/TEST ACS5 

/CLOCK BACK ON 

/TEST INDEX REGISTERS 



si &7 



BX8K 



BX8K 



05413 



152525 

320010 



05414 


206006 


05415 


040010 


05416 


207446 


05417 


057777 


05420 


260010 


05421 


740200 


05422 


740040 


05423 


200010 


09424 


546007 


05425 


741000 


05426 


740040 


05427 


206010 


05430 


040010 


05431 


207447 


05432 


056666 


05433 


260010 


05434 


740200 


05435 


740040 


05436 


200010 


05437 


546011 


05440 


741000 


05441 


740040 


05442 


206012 


05443 


040010 


05444 


207450 


05445 


055555 


01446 


260010 


05447 


740200 


05450 


740040 


05451 


200010 


05452 


546013 


05453 


741000 


05454 


740040 



/■CONSTANTS FOR PRECEDING LOOPS. MODIFIED WHEK IN U^PFR 4K 

/ 

XCTD?* OZM 12525 

ADDI ADD* 10 

/ 

/ 

/TEST AUTO-INDEX <XQR» 10) 

/ 



/(10) s 17776 OR 07776 
/AC « 11111 

/OR 07777 



AUTOIN 1 


LAC K17776 




OAC 10 




LAC K1S 




OAC 17777 




XOR» 10 




S2A 


E603 


HALT 




LAC 10 




SAD K17777 




SKP 


E604 


HALT 


/ 






LAC K16665 




OAC 10 




LAC K2S 




DAC 16666 




XOR« 10 




SHA 


E605 


HALT 




LAC 10 




SAD K16666 




SKP 


E606 

/ 


HALT 


LAC K15554 




DAC 10 




LAC K3S 




DAC 15555 




XOR« 10 




S8A 


E607 


HALT 




LAC 10 




SAD K15555 




SKP 


E608 


HALT 




•EJECT 



/ERROR, XOR» 10 FAILED 
/AC NOT 111111 



/ERROR, (10) NOT INCREMENTED*! 



/(10) • 16665 OT 06665 
/AC « 22222 

/OR 06666 



/ERROR, XOR» 10 FAILED 
/AC NOT 22222 



/ERROR, (10) NOT INCREMENTED*! 



/(10) * 15554 OR 05554 
/AC ■ 333333 



/ERROR, XOR« 10 FAILED, AC NOT 333333 
/ERROR. (10) NOT INCREMENTED *1 
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05459 


206014 




I.AC K14443 


05456 


040010 




OAC 10 


05457 


207451 




LAC K4S 


05460 


054444 




DAC 14444 


05461 


260010 




XOR« 10 


05462 


740200 




SZA 


05463 


740040 


E609 


HALT 


05464 


200010 




LAC 10 


05465 


546015 




SAD K14444 


05466 


741000 




SKP 


05467 


740040 


E610 


HALT 


05470 


206016 




LAC K13332 


05471 


040010 




OAC 10 


05472 


207452 




LAC K5S 


05473 


053333 




OAC 13333 


05474 


260010 




XO«» 10 


05475 


740200 




SIA 


05476 


740040 


E611 


HALT 


05477 


200010 




LAC 10 


05500 


546017 




SAD K13333 


05501 


741000 




SKP 


05502 


740040 


E612 
/ 


HALT 


05503 


206020 


LAC K12221 


05504 


040010 




DAC 10 


05505 


207453 




LAC K6S 


05506 


052222 




OAC 12222 


05507 


260010 




XOFU 10 


05510 


740200 




SZA 


05511 


740040 


E613 


HALT 


05512 


200010 




LAC 10 


05513 


546021 




SAD K12222 


05514 


741000 




SKP 


05515 


740040 


C614 


HALT 


05516 


206022 




LAC K11110 


05517 


040010 




DAC 10 


05520 


207454 




LAC K7S 


05521 


051111 




DAC 11111 


05522 


260010 




xe-iu 10 


05523 


740200 




SiA 


05524 


740040 


E615 


HALT 


05525 


2000f« 




LAC 10 


05526 


546023 




SAO Klllll 


05527 


741000 




SKP 


05530 


740040 


E616 


HALT 
.EJECT 



/(10) « 14443 OR 04443 
/AC • 444444 



/ERROR. XQR* 10 FA1LCD AC MOT 444444 



/ERROR. (10> NOT INCREMENTED *1 

/(10) « 13332 OR 03332 
/AC ■ 55555 



/ERROR. XQR* 10 FAILED AC NOT 555555 



/ERROR. <10> NOT INCREMENTED*! 



/(10) = 12221 OR 02221 
/AC « 666666 



/ERROR. XQR* 10 FAILED, AC NOT 666666 



/ERROR. (1« NOT INCREMENTED*! 

/(10) ■ 11110 OR 01110 
/AC « 777777 



/ERROR. XOR» 10 FAILEO, AC NOT 777777 



/ERROR. (10> NOT INCREMENTED ♦! 
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/TEST 

i 


isz* 11 


05531 


206024 


f 


LAC K15252 


?5532 


040011 




DAC 11 


85533 


207454 




LAC K7S 


05534 


055253 




DAC 15253 


05535 


460011 




IS2» 11 


05536 


740040 


E617 


HALT 


05537 


215253 




LAC 15253 


05540 


740200 




SEA 


05541 


740040 


E618 


HALT 


05542 


200011 




LAC li 


05543 


545334 




SAD K15253 


05544 


741000 




SKP 


05545 


740040 


E619 
/ 

/AUTON 
/ 


HALT 






iilNDEX JMP* 12 


05546 


207611 


LAC AUTJMP 


05547 


740200 




SZA 


05550 


740040 


E620 


HALT 


05551 


207534 




LAC JMPAUT 


05552 


047611 




DAC AUTJMP 


05553 


206025 




LAC AUTRET 


05554 


055253 




DAC 15253 


05555 


206024 




LAC K15252 


05556 


040012 




OAC 12 


05557 


620012 




JMP* 12 


05560 


741000 




SKP 


05561 


147611 


AUTR 


DIM AUTJMP 


05562 


200012 




LAC 12 


05563 


545334 




SAD K15253 


05564 


741000 




SKP 


05565 


740040 


E621 
/ 

/AUTO* 
/ 


HALT 






INDEX (DAC* 13), 


05566 


204553 


LAC K76 


05567 


040013 




OAC 13 


09570 


204553 




LAC K76 


05571 


047777 




OAC 07777 


05572 


207411 




LAC K0 


05573 


060013 




DAC* 13 


05574 


207777 




LAC 07777 


05575 


740200 




SIA 


05576 


740040 


E622 


HALT 


05577 


200013 




LAC 13 


05600 


544550 




SAD K77 


05601 


741000 




SKP 


05602 


740040 


E623 


HALT 

.EJECT 



/(11> = 15252 OR 05292 

/OR 05253 

/ERROR. ISZ TAILED TO SKIP 
/AUTO-INDEX 11 FAILED 



/ERROR. (15253 OR 05253) HOT a 
/ISZ FAILED 



/ERROR, (11) NOT JNCREMENTE0*1 

/ERROR. JMP* 12 FAILED TO REACH 15253 
/JMP» 12 

/RJMP TO AUTR 
/(12) « 15252 
/CUEAR ERROR TABLE 

/ERROR, (12) NOT INCREMENTED*! 

/<13> » 07776 OR 17776 

/(07777) » 07776 

/ERROR, (07777) NOT 0, OAC* 13 FAILED 
/ERROR (13) NOT INCREMENTED*! 
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/AUTO 
/ 



05603 
05684 
05605 
05606 
05607 
05610 
05611 
05612 
05613 
05614 
05615 
05616 



05617 
05620 
05621 
05622 
05623 
05624 
05625 
05626 
05627 
05630 
05631 
05632 
05633 
05634 
05635 
05636 
05637 
05640 



05641 
05642 
05643 
05644 
05645 
05646 
05647 
05650 
05651 
05652 
05653 
05654 
05655 
05656 
05657 



204574 
040014 
207525 
047772 
750001 
420014 
740200 
740040 
200014 
544566 
741000 
740040 



206006 
040015 
207412 
057777 
754001 
360019 
740200 
740040 
740400 
740040 
200015 
546007 
741000 
740040 
217777 
547412 
741000 
740040 



204561 

040016 
2074(J5 
047775 
560016 
741000 
740040 
207775 
547465 
741000 
740040 
200016 
544556 
741000 
740040 



E624 



•INDEX (XCT» 14), 

LAC K71 
DAC 14 
LAC AUTCMA 
OAC P7772 
CLA'CHA 
XCT« 14 
SZA 
HALT 
LAC 14 
SAD K72 
SKP 
E625 HALT 

/AUTO-INDEX (TAD« !») , 

/ 

LAC K17776 

OAC 15 

LAC Kl 

OAC 17777 

CLLICLAICHA 

TAD* IS 

9IA 

HALT 

SNL 

HALT 

LAC 15 

SAO K17777 

SKP 

HALT 

LAC 17777 

SAO Kl 

SKP 

HALT 



£626 

E627 

E62S 



E629 
/ 

/autO"!noex <sao« %*), 
/ 

LAC K74 

DAC 16 

LAC K5252 

OAC 07775 

SAD- 16 

SKP 
E630 HALT 

LAC 07775 

SAO K5252 

SKP 
E631 HALT 

LAC 16 

SAO K75 

SKP 
£632 HALT 

.EJECT 



/<14) « 07771 

/(07772> » CMA 

/ERROR. AC NOT (XCT* 14) A CMA 

/ERROR, (14) MOT INCREMENTED*! 

/(15) » 17776 OR 07776 
/OR 07777 

/ERROR, AC MOT (TAD* 15) 
/ERROR ( LI^K NOT 1 (TAD« 15) 

/ERROR. (1?) NOT INCREMENTED*! 

/ERROR, (17777 OR 07777) NOT 1 

/(16> « 07774 

/C07775) f 5252 

/ERROR, SAO SKIPPED (SAQ» 16) 
/ERROR, (07775) ><OT 5252 
/ERROR. <16) NOT jNCREfcENTED+l 
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05660 
05661 
05662 
05663 
05664 
05665 
05666 
05667 
05670 
05671 
05672 
05673 
05674 
05675 
05676 
05677 
05700 

05701 
05702 
05703 
05704 



05705 
05706 
05707 
05710 
05711 
05712 
05713 
05714 
05715 
05716 
05717 
05720 
05721 



05722 
05723 
05724 
05725 
09726 
05727 
05730 



207612 
744200 
740040 
206026 
047773 
204574 
040017 
207532 
047612 
120017 
741000 
147612 
207772 
504550 
546027 
741000 
740040 

200017 
544566 

741000 
740040 



207415 

040010 
207454 
040011 
460010 
740040 
200010 
547416 
741000 
740040 
200011 
740200 
740040 



207415 

040011 
460011 
200011 
547417 

741000 
740040 



/AUTO-INDEX <JMS» I 7 ) 
/ 

LAC AUTj"S 

SZAJCLl 
E633 HALT 

LAC AUTRJM 

DAC 07773 

LAC K71 

DAC 17 

LAC JMSAUT 

DAC AUTJMS 

JMS» 17 

SKP 
AUTREl DZM AUTJMS 

LAC 07772 

AND K77 

SAD AURJMP 

SKP 
E634 HALT 

L*C 17 

SAD K72 

SKP 
E635 HALT 
/ 

/AUTO-INOEX <ISE» 10) 
/ 

LAC K10 

DAC 10 

LAC K7S 

DAC 11 

ISI» 10 
E636 HALT 

LAC 10 

SAD KU 

SKP 
E637 HALT 

LAC 11 

SZA 
E638 HALT 
/ 
/AUTO-INOEX (IS2» U> 

LAC K10 
DAC 11 
JSZ» 11 

LAC 11 
SAD K12A 
SKP 
E639 HALT 

.EJECT 



/ERROR, ERROR TABLE mOT 

/JMP AUTREl 
/<17) * 07771 

/JMS» 17 IN ERROR TABLt 

/CLEAR ERROR TABLE 



/ERROR. (07772) STORED WRONG 
/<07772) SHOULD b AUTREl*! 



/ERROR, (17) NOT INCREMENTED*! 

(10) ■ 10, 

/(11> « 777777 

/ERROR. ISI FAILED TO SKIP 

/ERROR. (10) NOT 11 

/ERROR, (11) NOT 

(11) ' 10, 

/(ID * 10 



/ERROR, IS?* 11 TAILED TO 
/INCREMENT *2 in) 
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/AUTO'INOEX <XCT* l*)i 

A 


05731 


204564 


1 


LAC K73 


25732 


040015 




QAC 15 


05733 


207530 




LAC LAWAUT 


05734 


047774 




OAC 07774 


05735 


207531 




L*C LAWFUL 


05736 


047775 




OAC 07775 


05737 


750000 




CLA 


05740 


420015 




XCT» 15 


05741 


740001 




CMA 


05742 


740200 




SZA 


05743 


740040 


E640 


HALT 


05744 


200015 




L*C 15 


05745 


54455* 




SAD K75 


0574* 


741000 




SKP 


05747 


740040 


E641 


HALT 


05750 


447517 




ISI W0RK3 


05751 


605414 




JMP AUTOIN 


05752 


106334 




JMS GENRAN 


05753 


106362 




JMS CKNO 
•EJECT 



/(15> « 07773 

/(07774) « XCT* 15 

/(07775) ■ LAW 17777 

/AC s 



/ERZCR, AC NOT ONES 
/LAW 1777 DID NOT OCCUR 



/ERROR. <15) NOT 7775 <XCT« 15) 
/CHECK DONE LOOPING 
/LOOP 



PAG1 ^3 



BX6< 



RX8K 



/TEST LAW X kJTM TAD, AC S"C LD ALWAYS 

/BE CLEAR AFTER THE TAO, LAW -1 TO 

/LAW -20000 ARE USED, ANr THE PROPE" Hi T IS 

/ALWAYS AOOEO TO GIVf. CVFKF|.~w, 

/ 



?5754 


207412 


LAUD 


LAC Kl 


05755 


046004 




OAC BITN 


25756 


777777 


LAWS 


LAW -1 


05757 


346004 




TAD BITN 


05760 


741200 




SNA 


05761 


6057M 




JMP ,*3 


05762 


740040 


ER1 


HALT 


05763 


605756 




JMP LAWS 


05764 


206004 


/ 


L*C BITN 


05765 


7440J.0 




RCL 


05766 


046004 




DAC BITN 


05767 


405756 




XCT LAWS 


05770 


744010 




RCL 


05771 


045756 




OAC LAW'S 


05772 


546005 




SAD KNOP 


05773 


741000 




SKP 


05774 


605756 




JMP LAWS 


05775 


777777 




LAW -1 


05776 


045756 




OAC LAWS 


05777 


447517 




ISZ wORKi 


06000 


605754 




JMP LAWD 


06001 


106336 




JMS GE^RAN 


06002 


106362 




JMS CKNO 


06003 


606030 




JMP TIAC 


06004 


000000 


/ 

BITN 





06005 


740003 


KNOP 


740000 
.EJECT 



/START wjTM qjT 17 
/TWIS LAW WILL ROTATE LEFT 

/SHOULD nVERFLOw ♦ AT * 

/OK 

/ERROR. AC NOT AFTER A 

/D^ SAME TAD AGAIN, 



/NEXT BIT POSITION, 

/2'S COMPLEMENT r>J C(B!TN) 
/DONE IF a A NOP 
/TEST NexT BIT POSITION 
/RESTORE LAWS 
/LOOP 

/TEST iAC 
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/CONSTANTS FOR AUTO- I NOE* I NG . 


06^06 


017776 


K17776 


17776 


06P07 


017777 


K17777 


17777 


516013 


016663 


K16665 


16665 


06011 


016666 


K16666 


1666ft 


06?12 


015554 


K1&S54 


15554 


556013 


015555 


K15555 


15555 


(36014 


014443 


K14443 


14443 


Z601S 


014444 


K14444 


14444 


06016 


013332 


K13332 


13332 


06017 


013333 


K13333 


13333 


06P20 


012221 


K12221 


12221 


06021 


012222 


K12222 


12222 


06022 


011110 


K11110 


11110 


06023 


011111 


Klllll 


11111 


06024 


015252 


K15252 


15252 


06029 


605561 


AUTRET 


JMP AUTR 


06026 


605673 


AUTRJM 


JMP AUTRE! 


06027 


005672 


AURJMP 


AUTREl'l 
.EJECT 
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06030 


750000 


(^6031 


740030 


06032 


547412 


06P33 


741000 


06034 


740040 


06035 


744000 


06036 


777777 


06037 


740030 


06040 


740200 


06041 


740040 


06042 


740400 


06043 


740040 


06044 


744002 


06045 


777777 


06046 


740030 


06047 


740200 


06050 


740040 


06051 


741400 


06052 


740040 


06053 


207412 


06054 


740031 


06055 


740001 


06056 


741200 


06057 


606062 


06060 


740001 


06061 


740040 


06062 


754031 


06063 


740400 


06064 


740040 


06065 


740200 


06066 


740040 


06067 


750000 


06070 


740230 


06071 


740040 


06072 


760000 


06073 


740230 


06074 


741000 



f 

/TEST 

/ 

TI AC 



EX01 
/ 



EX02 

EX03 
/ 



EX04 

EX05 
/ 

/TEST 
/ 



EX06 
/ 



EX07 

EX10 
/ 



EX13 
/ 



IAC 

cu 

IAC 

SAD Kl 
SKP 
HALT 

CLU 

LAW *1 

IAC 
SZA 

HALT 

SNL 

HALT 

STL 

LAW .1 

IAC 

SZA 

HALT 

SZL 

HALT 



/AC s 
/AC + 1 



/E"ROR, AC NOT s 000P01 

/L * 

/AC * 777777 

/AC OVERFLOW 

/ERROR, AC NOT ZERO 

/L MUST BE 1 

/ERROR. LINK NOT COMPLEMENTED 

/LINK s i 
/AC « 777777 

/OVERFLOW THE Ac 



/ERROR, AC NOT ZERO 
/ERROR. L NOT COMPLEMENTED 
IAC WITH MICROPROGRAMMING 



LAC Kl 

CMASIAC 

CMA 

SNA 

JMP ,*3 

CMA 

HALT 



/AC ■ 777776 * 1 

/AC MUST ■ 

/ERROR, CMA'UC FAILED 



CLL!CLA!CMA!IAC /L « 0i AC « 777777 ♦ 1 

SNL 

HALT /ERROR. LINK OR JAC FAILED 

SZA 

HALT 



CLA 
SZAJJAC 

HALT 

LAW 
SZA! IAC 

SKP 
.EJECT 



/ERROR, AC OR IAC FAILED 
/AC ■ 

/ERROR, SZAUAC FAILED 
/AC » 760000 



PACE 
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06075 

F6076 
06077 


740040 
741230 

74K040 


EX14 

FX15 
/ 

/ 
/TEST 

/ 


HALT 
SNA' !AC 

HAI.T 


0610? 
06101 
06102 
06103 


447517 
606030 
106336 

106362 


!SZ W0BK3 
J^P T1AC 
JMS GEM«*N 
JMS CKNO 






SWHA 


06104 
06105 
06106 
06107 

06110 


777000 

742030 
547347 

741000 
740040 


/ 

TSWN 

EX16 


LAW 17003 
SWHA 

SAD K777 
SKP 
HALT 


06111 
06112 
06113 
06114 
06115 


207464 
742030 
547472 

741000 
740040 


/ 

EX17 


L*C K2525 
SUMA 

SAO K502 
SKP 
HALT 






/ 

/TEST 
/ 

EX18 

EX19 


CONDITIONAL ! 


06116 
06117 
06120 
06121 
06122 


207435 
742130 
740040 
743130 
740040 


LAC K400K 

SMA'SWMA 

HALT 

SPA'SWHA 

HALT 


06123 
06124 
06125 


547435 

741000 
740040 


EX20 


SAD K400K 

SKP 

HALT 


06126 
06127 
06130 
06131 


447517 

606104 
106336 
106362 


/ 


]Si W0RK3 
JMP TSWH 
JMS GENRAN 
JMS CKNO 



/ERROR. SZA! JAC fAIL^n 
/ERROR. S\a;iaC fAluED 

/LOOP 



/AC ■ 777000 
/AC • 000777 



/ERROR. SWHA FAUED *ITh 
/AC * 7770Z0, 

/AC « 002525 

/AC SHOULD BE 525002 

/OK 

/ERROR. SWHA TAILED wITh 

/AC = 002525, 

WITH SWHA 

/AC • 400000 

/shoulo skip, then swap 
/error. smajswha didn't skip 

/error, spaiswha failed. cuc) 
/should be 000001 if it is 
/still 400000 maybe smajswha 

/ABOVE FAILED, 

/SHOULD AGAIN > 4000P0 

/OK 

/ERROR, ONE OF THE TWO 

/previous swha's failed, 



/LOOP 



.EJECT 
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B*8< 



06132 
26133 

06134 
06135 

06136 
06137 



06140 
06141 
06142 
06143 

06144 
06145 



720000 
721000 
722000 
723000 
724003 
725000 
726000 
730000 
731000 
734000 
735000 
736000 
737000 
707764 
707762 
707761 
707741 



754000 
720000 
740200 
740040 

741400 
740040 



754000 
721000 
740200 
740040 

741400 
740040 



06146 
06147 
06150 
06151 


754000 
722000 
740200 
740040 


06152 

06153 


741400 
740040 



/ 

/TEST INDEX GROUP INSTRUCTIONS 
/ 

/XG crnv!Tio*.s 



AA5s7200?e 
PAXs72l00e 
PAl, = 722000 
AAC=723000 
PXA«724000 
AXSs725000 
PXU=726000 
Pt_As730000 
PLXa73l000 
CL*C* 7 34000 

CL*s735000 
CLLR S 736000 

AXRS737000 
EBAS707764 

EPAs707762 
SBA8707761 
EXBAs707741 



/ADD TO AC I SKIP ir r ^ > L* 

/PL4CE AC IN XR 

/PLACE AT IN' L" 

/ADD TO AC 

/PLACE XR IN AC 

/ADD TO XRi SKIP IT a 03 > L 3 

/PLACE XR IM LR 

/PLACE L R IN AC 

/PLACE LR IN XH 

/CLEAR AC 

/CLEAR XR 

/CLEAR L« 

/ADO TO XR 

/ENTER 9 MODE (RaNk aDCRESS) 

/EMTER 15 MODE <«K PaGES) 

/S«IP IF I^' 9 *O n t 

/SKIP IF A P0P*15 



/ 

/TEST XG IN 9 MODE To MAKE SURE THE AC OR 
/LINK DOES NOT CHANGE 



/ 

TSXG 



EX21 



EX22 



CLAiCLL 

AAS 

SZA 

HALT 

SZL 
WALT 



/TRV PAX IN 9 MODE 
/ 

CLAICLL 

PAX 

S2A 
EX23 WALT 



EX24 



SZL 

MALT 



/TRY PAL IN 9 MODE 
/ 

CLA'CLL 

PAL 

SZA 
EX25 HALT 



EX26 



SZL 
WALT 



/AC, LINK = P 

/ADD TO AC» COMpa-Rf TO LR 

/ERRORt AAS CHANGED C(AC),i. 
/, i, WHILE IN 9 M C DE, 

/ERROR, AAS CHANGED C(L)... 
/,,, WHILE IN 9 voce. 



/AC, LINK s 

/ERROR, PAX CHANGED CUC>.., 
/,, .WHILE I 9 Mfir^E 

/ERROR, PAX CHAMGED C<L>... 
/...WHILE IN 9 Mr DP 



/AC, LINK s 

/ERROR. PAL CHAFED C<t-C),,, 
/..."'HILE IN 9 "ODC 

/ERROR, PAL C^AvcED "(L ) , . . 
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/, . .WH1LF IN 9 MODE 



.EJECT 



,f: A:GH f<) 5X3*^ BX6K 

/AAC IN 9 MODE 

/ 

7615« 7540ZZ CLA'CLU 

06155 .723000 AAC 

26156 740230 SHA 

06157 74004a EX27 WALT /ERROR, AAC+000 rH)A\CE r ' C(AC),., 

/,,, IN 9 MOPE 

06167 741432 sHl 

06161 740040 EX28 WALT /ERROR, AAC+000 CHANGED C(L>... 

/,,, WHILE IN 9 MODE 
/ 

/PXA IN 9 MODE, XR ShOULP INITIALLY BE 0, 
/ 

06162 75*001 CLAiCMAjCLL 

06163 7240O0 PXA 

06164 740200 SZA 

06163 740040 EX29 HALT /ERROR, PXA CHANGED C(AC>,., 

/,,,IM 9 MODE 

06166 741400 SZL 

06167 740040 EX30 HALT /ERROR, PXA CHANCED C(U,., 

/,,,IN 9 MODE 
/ 

/AXS IN 9 MODE, XR SHOULD INITIALLY BE 0. 
/ 

CLA'CLL 

AXS /SHOULDN'T SKIP 

EX31 HALT /AXS DID NOT SKJP |,\ 9 MODE 

SZA 
EX32 HALT /AXS CHANCED AC JN 9 MODE 

SZL 
EX33 HALT /AXS CHANGED LINK IN 9 MODE 

/ 

/PXL IN 9 MODE, XR SHOULD INITIALLY BE 0. 
/ 

CLA|CLL!CMA 

PXL 

CMA 

SZA 
EX34 HALT /ERROR, PXL CHANGED CCAO,,. 

/,,,IN 9 MODE 

SHL 
EX35 HALT /ERROR, PXL CHANGED C(L>... 

/,,,IN 9 MODE 

.EJECT 



06170 


754000 


06171 


725000 


06172 


740040 


06173 


740200 


06174 


740040 


06175 


741400 


06176 


740040 


06177 


754001 


06200 


726000 


06201 


740001 


06202 


740200 


06203 


740040 


06204 


741400 


06205 


740040 
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bxsk 



BX8K 



06206 
PI6207 
0621(5 
06211 

06212 
06213 



06214 
06215 
06216 

06217 

06220 
06221 



754001 

730002 
740200 
7400«0 

741400 
740040 



754000 
731000 
740200 
740040 

741400 

740040 



/PLA IM 9 M ODE, L« SHOULD I>:!T!ALL y r e ?. 
t 

CLAJCMA'CLL 

PLA 

SEA 
EX36 HALT /E^ROR, PLA CHAmgEC CUC),., 

/,,,!N 9 mOQE 

S2L 
EX37 HALT /ERROR, PL* CwamgEp C(L>.,. 

/,..TN 9 MODE 

/ 

/PLX IN 9 MODE, XR, LR SHOULD INITIALLY BE Z. 
/ 

CLMCLL 

PLX 

SZA 
EX38 HALT 



S2L 
EX39 HALT 



/ERROR, PLX CHANGED CUC),., 
/,, ,!N 9 MODE 

/ERROR, PLX CHANGED C(L>,,, 
/,,,IM 9 MODE 



06222 


754001 


06223 


734000 


06224 


740202 


06225 


740040 


06226 


741400 


06227 


740040 


06230 


754001 


06231 


735000 


06232 


740001 


06233 


740200 


06234 


740040 


06235 


741403 


06236 


740043 



/CLAC IN 9 MODE 
/ 

CLA1CMAJCLL 

CL*C 

S2A 
EX40 HALT 

SZL 
EX41 HALT 
/ 

/CLX IN 9 MODE 
/ 

CLAICMA'CLL 

CLX 

CMA 

S1A 
EX42 HALT 

SZL 
EX43 HALT 



/ERROR. CLAC WORKED IN 9 MODE 

/ERROR, CLAC CNANGEO CIL>... 
/,.,IN 9 MODE 



/ERROR. CLX CHANGED CUO... 
/,,,IN 9 MODE 

/ERROR. CLX CHAFED C(L>... 
/,,,IN 9 MODE 



06237 


754001 


06240 


736003 


06241 


7400C1 


06242 


74020Z 



/CLLR IN 9 M ODE 
/ 

CLA!CMA[CLL 

CLLR 

CMA 

S2A 

.EJECT ... 



06246 


754000 


06247 


737777 


26250 


724000 


06251 


547454 


06252 


741003 


06253 


740040 


06254 


741402 


06255 


740040 



A(*BP<"1 BX8K BX8K 

f*6243 740040 EX44 HALT /ERROR, CLIR CHa\GEP C(AC),.. 

/,.,IN 9 MOOT 
26244 741430 S*L 

?6?45 74004? EX45 HALT /ERR^R, f"i_LS CHa»GF'; C ( L ) . . . 

/,.,1* 9 MijaF 
/ 

/AXR IK 9 MODE 
/ 

CLA'CLL 
AXR*777 

PXA /XR TO AC 

SAD K7S 
SKP 
EX46 HALT /ERROR. AxR FAIlfQ.,. 

/, ., IN 9 MODE 
SZL 
EX47 HALT /ERROR, AXR CHANGED C(L>... 

/, • , IN 9 MODE 
06256 735000 CIX /CLEAR XR 

/ 

/TEST SB* (SKIP IF bank moDE) 
/ 

CLAICMAJCLL 
SBA 

EX«8 HALT /ERROR, SBA DID vOT SKIP,,, 

/..,CP SHOULD B E Jm 9 ^ODE 

CMA 

SZA 
EX49 HALT /ERROR, SBA CHANGED CUC), 

SZU 
EX50 HALT /ERROR, SBA CHANGED C(L). 

/ 

/TEST EXBA (SKIP IF PDP»l5) AND EPA (ENTER 15 MODE) 
/ 

CLA'CLL 

EXBA 
EX51 HALT /ERROR, EXBA DlD«'T SKIP,,, 

/.,,IS THJS A PDP-»15? 

IOP 

EPA /ENTER 15 MODE 

SBA /SKIP IF IN 9 MODE 

SKP 
EX52 HALT /ERROR, SBA SKIPPED AFTER,., 

/AN EPA WAS ISSUFD. 

EBA /BACK TO 9 MODE 

SBA 
EX53 HALT /ERROR, SBA DIDN'T SkJP,,, 

/, , .AETFR AN E9a. 



06257 


754001 


06263 


707761 


06261 


740040 


<*6262 


740001 


06263 


740200 


06264 


740040 


06265 


741400 


06266 


740040 


06267 


754000 


06270 


707741 


06271 


740040 


06272 


700002 


06273 


707762 


06274 


707761 


06275 


741000 


06276 


740040 


06277 


707764 


0630? 


707761 


06301 


740040 


06302 


750004 


06303 


740010 


06304 


740100 


06305 


700042 


06306 


447517 


06307 


606132 



/ 



LAS 
RAL 

SMA 

ION 

IS2 U0RK7 

JMP TSXG /incp 
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BX8K 



BX6< 



2631? 


75?i2e4 


06311 


507425 


06312 


741222 


36313 


606320 


06314 


703341 


!»6315 


606322 


06316 


740040 


06317 


606314 


06320 


703341 


06321 


740040 


06322 


700002 


36323 


750004 


06324 


507440 


06325 


741200 


5)6326 


606410 


06327 


760207 


06330 


107237 


06331 


750004 


06332 


507433 


06333 


740203 


06334 


107303 


06333 


600112 



/ 






/TEST 

> 


JOT 3341 


(SKIP 


PC*)5 


LAS 






AND 


K4i2«! 




SNA 






JMP 


.♦5 




703341 






JMP 


,♦5 


EX54 


HALT 






JMP 


,*3 




703341 




EX55 


HALT 




/ 


i or 

LAS 






AND 


K20K 




SNA 






JMP 


ENTST 




LAW 


207 




JMS 


TLSSr 




LAS 






AND K207 




SHA 






JMS 


PJNOT 



/CHECK ACS 9 

/ACS 9*0 (ivO PC15) 
/SKIP lr PC15 INSTALLED, 

/ERROR. ACS 9 IS SET, INDICATING 
/NO PC15. BUT 7*3341 SKIPPEO. 

/SHOULD SKIP 

/ERROR, PC15 INSTALLED, BUT 

/7e3341 "JDN'T SKIP 



/PI PFF 

/skip « do^'t relocate 
/sell for one pass 

/pi inhibited 



JMP SEQUEN /START OVER 
.EJECT 



GE^S"3 


BX8K 


76336 


0000??! 


?6337 


206357 


26340 


■54636i2 


36341 


741000 


06342 


606352 


06343 


206361 


S*6344 


046357 


?6345 


207541? 


?6346 


744012! 


26347 


741400 


06350 


347412 


?6351 


047540 


316352 


226357 


06353 


347540 


06354 


066357 


06355 


446357 


06356 


626336 


06357 


007551 


?6360 


007551 


06361 


007541 


P6362 


000000 


06363 


507471 


06364 


740001 


06365 


047517 


06366 


626362 


06367 


000000 


06370 


206357 


06371 


546360 


06372 


741000 


06373 


606403 


06374 


206361 


06375 


046357 


06376 


207540 


06377 


744010 


06400 


741400 


06401 


347412 


36402 


047540 


06403 


226357 


06404 


347540 


06405 


066357 


06406 


740000 


06407 


626367 



BX8K 

/RANDOM 

/ 

GEMRAv 



^u u bf.r generators 



rantad 



RANDEX 

ENOTBL 

TBLTOP 

/ 

CKNO 



/ 

RANGEN 



TADRAN 



L.AC RAK 
SAD END 
SKP 

jmp ran 

LAC T6L 
DAC RAN' 
LAC RA* 
CLLiRAL 
SZL 

TAD Kl 
DAC RAN 
LAC* RA 
TAP RAN 
DAC* RA 
!SZ RAN 
JMP» GE 



DEX 
TSL 

TAO»l 
TOP 
DEX 
CON 



CON 

NDEX 

CON 

NDEX 

DEX 

NRAN 



RANTBL*10 
RANTBL*10 
RANTBL 



AND K37S 

CMA 

DAC WORKS 

JMP» CKNO 



LAC RANDEX 

SAD ENDT8L 

SKP 

JHP TADRAN-1 

LAC TBLTOP 

DAC RANQEX 

LAC RANCON 

CLLIRAL 

S2L 

TAD Kl 

DAC RANCON 

LAC» RANDEX 

TAD RANCON 

OAC# RANDEX 

NOP 

JMP» RANGEN 

.EJECT 



/C*EfK mR £■'. 
/END 
/GENERATE RANDOM 

/RESET INDEX TO FIRST 

/POSITION KODjFp-R 

/I LEFT 

/WAS BIT A 1 

/YES MAKE 17 A 1 

/RESTORE MODIFIER 

/GET FIRST CONTROL 

/ADD MODIFIER 

/NEW CONTROL ■ RANDOM 

/STEP POINTER 

/EXIT 



rr TA'-tr 



/MAKE 65K OR LESS 

/■LOOP COUNTER 
/EXIT 



/CHECK FOR TABLE EM) 
/END 
/GENERATE RANDOM 

/RESET INDEX TO FIRST 

/POSITION MODIFIER 
/l LEFT 

/WAS BIT A 1 
/MAKE 17 A 1 

/RESTORE MODIFIER 
/GET FIRST CONTROL 

/ADO MODIFIER 
/NEW CONTROL » RANDOM 

/EXIT 
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BX8k 



BX8K 



0641*3 


7 e e a ? 2 


06411 


2064H 


06412 


507437 


06413 


740200 


06414 


606503 


36415 


7400!*1 


06416 


047516 


06417 


207342 


06420 


047517 


06421 


207516 


06422 


047337 


06423 


207517 


06424 


047340 


06425 


447337 


06426 


227337 


06427 


047517 


06430 


507443 


06431 


247443 


06432 


740200 


06433 


606513 


06434 


207517 


06435 


447340 


06436 


067340 


06437 


547327 


06440 


741002 


06441 


606425 


06442 


147517 


06443 


447337 


06444 


227337 


06445 


447340 


06446 


067340 


06447 


207337 


06450 


546707 


06451 


741000 


06452 


606443 



/pop-is basic exerciser - 
/ 

/ROUTUE fOR PROGRAM RELOCATION 
/ 



TAPE 7 



rNTST 



MOVE 



RFROM 



MVRTM 



HVCST 



I OF 




LAC 


• 


AND 


Kie* 


SZA 




JMP 


mvbk 


CMA 




OAC 


W0RK2 


LAC 


K7777 


DAC 


W0RK3 


LAC 


W0RK2 


OAC 


MOVES 


LAC 


W0RK3 


DAC 


MOVED 


152 


MOVES 


LAC* MOVES 


DAC 


WORKS 


AMD 


K700K 


XOR 


K700K 


SZA 




JMP 


MRIMS 


LAC 


W0RK3 


ISZ 


MOVED 


OAC* MOVED 


SAD 


LI^ITA 


SKP 




JMP 


RFROM 


D2M 


W0RK3 


152 


MOVES 


LACi 


t MOVES 


ISZ 


moved 


DAC« 


t moved 


LAC 


MOVES 


SAO 


ENDOUT 


SKP 




JMP 


MVCST 


.EJECT 



/PI ?FF r iuTG RFLOCaTION 



/SfcE IF 



IN LO OR HI 
/HI 4K 



4K 



/SOURCE 
/QtST'N 



ADDRESS 
AOR, TO HI 



4 k: 



/source ad«, 

/save Instruction 



/operate imst, if e 

/MEMORY REF 



/STORE IN OPPOSITE 4K 
/DONE WITH INST, JF EQUAL 
/MOVE CONSTANT TABLES 

/MOVE ANOTHER INST, 



/SOURCE 
/DEST»N 



P *GE* 



BX8K 



Bx8K 



?6<53 


2046P2 


Z6«54 


247437 


?6<S55 


P546P2 


?6*56 


204545 


.'6457 


247437 


J646? 


054545 


?6<6l 


207352 


e6«62 


247437 


?6463 


057352 


*6<64 


207351 


26465 


247437 


?6466 


037351 


?6467 


750004 


S6«70 


507433 


76471 


740200 


26472 


107303 



LAC K210K 

XOR Kl?-< 

DAC K210«*l»e0l? 

LAC "1?0?0 

xOR Kl?n 

oac Kie^z0*ie-0B0 

LAC TTIn 

xor Kie< 

OAC TTIN*10000 

LAC TTCUT 

XOR Kl^K 

DAC TTCUT*1»000 

LAS /LOWER 

ANiO K207 

SEA /CHECK FOR INHIBIT PI 

JMS PJNOT /INHIBITED 

.EJECT 
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BX8K 


BX8K 






?6473 


206473 


BGMAGNi 


LAC , 




£6474 


507437 




AND K10K 




26475 


7402C0 




S2A 


/SEE WHICH 4K 


556476 


741000 




SKP 




06477 


627333 




jmp« 8G\HI 


/STA3T OVF' !\< "' << 


06500 


760207 




LAW 207 


/BELL 


06501 


107237 




JMS TLSSF 




216502 


627332 




JMP» bgnlo 


/START \K 10 






/ 

/SETUP 


TO MOVE TO LOU 


4K 


216503 


777777 


/ 

MVBK 


LAW 17777 


/QEST'N 


06504 


047517 




DAC W0»K3 




06503 


207342 




LAC K7777 


/SOURCE 


06506 


047337 




DAC MOVES 




06507 


606423 


/ 
/ 


jMP M0VE*2 


/MOVE PROGRAM 



06510 


147335 


06511 


207517 


06512 


507342 


06513 


047516 


06514 


207335 


06515 


547422 


06516 


606523 


06517 


547516 


06520 


606434 


06521 


447335 


06522 


606514 


06553 


207437 


06524 


247517 


06525 


606435 


06526 


047526 


06527 


047527 


06530 


606531 



4< 



/ADJUST MEMORY REF, INSTRUCTIONS, 00 NOT ADJUST IF 

/ADR, P0RTI0N«ANY AOR, FRO* TO 21. 

/ 

/adr, compare word 
/inst, tp be modified 

/CLEAR BITS 0«5 
/SAVE 

/DONE IF E3UAL Tn 22 

/COMPARE 
/AOR. IS SOME REGi FROM 2 
/TO 21. MOVE WITHOUT ACJUSTING 

/AOR, C0UNU1 

/10000 

/ADJUST INST. BY 10000 

/MOVE 

/THESE ARE MODIFIED FOR 
/RELOCATION 



MRINS 


OEM 


WDCNT 




LAC 


W0RK3 




AND 


K7777 




DAC 


W0RK2 




L*G 


WDCNT 




SAD 


K22 




JMP 


.♦5 




SAO 


W0RK2 




JMP 


MVRTN-1 




!Si 


WDCNT 




JMP 


, »6 




LAC 


K10K 




XOR 


W0RK3 


a 


JMP 


MVRTN 


SAV3 


DAC 


SAVAC 


SAV5 


DAC 


RJMP 


SAV6 


JMP 


SRVINT 




.EJECT 



BX6k 



BX8K 







/SERVICE ALL INTERRUPTS 


06531 


750C!i54 


SRVJVT 


LAS 


26*32 


507437 




AND K1JIK 


06533 


740200 




SZA 


06534 


606543 




JMP NOCLK 


06535 


200007 




LAC 7 


06536 


741100 




SPA 


06537 


606546 




JMP E642A*1 


06540 


700001 




CLSF 


06541 


740040 


E642 


HLT 


06542 


606606 




JMP CLMNT 


06543 


700001 


/ 

NOCLK 


CLSP 


06544 


741000 




SKP 


06545 


740040 


E642A 


HLT 


06546 


700301 




ksf 


06547 


741000 




SKP 


0*550 


606572 




JMP RTNJT 


06551 


700314 




IORS 


06552 


741100 




SPA 


06553 


740040 


E643 


HALT 


06554 


207514 




LAC WORK 


06555 


740010 




RAL 


06556 


741100 




SPA 


06557 


606646 




JMP TTYJNT 


06560 


700314 




IORS 


06561 


307344 




AND K1400 


06562 


740200 




S2A 


06563 


107167 




JMS RNfLG 


06564 


700101 




RSF 


06565 


741000 




SKP 


06566 


607020 




JMP READA 


06567 


700201 




psr 


06570 


606572 




JMP RTNJT 


06571 


627001 


/ 

/SETUP 


JMP* GOPNGM 






TO RETURN TO INS' 


06572 


744000 


RTNIT 


CLL 


06573 


700312 




KftB 


06574 


207527 




LAC RJMp 


06575 


741100 




SPA 


06576 


744002 




STL 


06577 


507463 




AMD K17S 


06600 


546605 




SAD ILIMT 


06601 


740040 


E644 


HALT 


06602 


207526 




LAC SAVAC 


06603 


700042 


PJQN 


ION 


06604 


627527 




JMP» RJMP 



/REAP ACS 

/BIT 5 

/CHECK BIT 5 

/CHECK CLOCK FLAG 

/RTC REGISTER 

/RTC OVERFLOW IF SKIP 

/NO OVERFLOW YET 

/CLSF SHOULD SKIP 

/CLOCK REGi SAYS OFERFLOW, BUT 

/RTC FLAG NOT SET, 

/SERVICE CLOCK 

/SHOULD NOT SKIP 

/OK 

/RTC FLAG IS SET. IT WAS 

/NEVER SELECTED BY THE PROGRAM, 



/STATUS WORD BIT MUST ■ 
/ERROR. BIT SETi P! OFF 

/SEE IF TTY IN USE AT TIME 

/OF PI 

/CONTINUE PRINTING 

/I/O STATUS WORD 

/CHECK FOR NO TAPE FLAGS 

/EITHER READER OR PUNCH NO TAPE 
/CHECK FOR PI FpriM READER 

/read more 
/check punch pi 

/some other device 

/PUNCH MORE 



/C(0) AT PI 
/CHECK LINK 
/RESTORE LINK 



/ERROR, PJ OCCURRED AFTER LAC SAVAC 
/INSTEAD OF JMP o PJh-P, 

/AC AT TIME OF PI 
/PJ ON 

/CONTENT? OF {'/■) AFTER PI 
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BX8K 



BX8K 



06605 006603 



06606 
26607 
06610 
06611 

06612 
06613 



700024 
700001 
741000 

743040 

106631 
606572 



ILiNT PION 
/ 

CLKiNT cloe 
cisf 

SKP 

E644A WtT 



J«S CUTSET 
JMP RTNIT 
.EJECT 



/RTC OFEl CLEAR RTC fL*G 



/clock tlag still set 

/aeter a clop 

/reset clock to random value 

/RETURN TO t\'ST, TEST 



P,AGl«nZ9 BX8k BX8K 



06614 


30020? 


06615 


106336 


516616 


047335 


06617 


507347 


06620 


047335 


06621 


347350 


06622 


741100 


26623 


606615 


06624 


207335 


06625 


740001 


06626 


040007 


06627 


700044 


06630 


626614 


06631 


000000 


06632 


106367 


06633 


047335 


06634 


907347 


06635 


047335 


06636 


347350 


06637 


741100 


06640 


606632 


06641 


207335 


06642 


740001 


06643 


040007 


06644 


700044 


06645 


626631 



/ 

/SETUP CLOCK VALUES 
/ 

S'TCL< I 



JVS GE^AN /GET A Ml, FT* CL?C»> 

DAC WDCNT /S*VE 

A*iO K777 /MAX, Tjv£ i 9 SEC*, 

DAC WDCNT /SAVE 

TAD M167 /MlN, TimE. ■ 2 SLC. 

SPA /P0S,s2 SECS, OR MO»f 

JMP SETCLK*! /NEG « LESS THA\i 2 SfC. 

LAC WDCNT 

CMA 

DAC 7 /PUT VALUE jw (7) 

CLON /CLOCK 0* 

JMP» SETCLK /EXIT 



/ 

CL«SET 3 



JMS RANGEN /GET A MO, FOR CLOCK 

DAC WOCNT /SAVE 

AMD K777 /MAX, TjmE b 9 SECS, 

DAC WDCNT /SAVE 

TAD M167 /MlN, T[kE a 2 SECS, 

SPA /POS. = 2 SECS. OR MT.RE 

JMP CLKSET*! /MEG, = LESS m*' 2 SECS. 

LAC WDCNT 

CMA 

DAC 7 /PUT VALUE IN (7) 

CLON /CLOCK ON 

JMP« CLKSET /EXIT 

.EJECT 
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BX8K 


BX8K 








/SETUP 
/ 

TTYIMT 


FOR READ, PU 


06646 


207351 


LAC TTOUT 


06647 


546707 




SAD ENDOUT 


06650 


606665 




JMP PREADY 


36651 


207441 




LAC K200K 


06652 


047514 




DAC WORK 


06653 


700101 




RSF 


06654 


741000 




SKP 


06655 


740040 


E645 


HALT 


06656 


700201 




PSF 


?6657 


741000 




SKP 


06660 


740040 


E646 


HALT 


06661 


447351 




ISE TTOUT 


06662 


227351 




LAC* TTOUT 


06663 


700406 




TLS 


76664 


606572 


/ 
PREADV 


JMP RTNJT 


06665 


147514 


D2M WORK 


06666 


147353 




D2M CNTA 


06667 


147354 




D2M CMT8 


06670 


700402 




TCF 


06671 


790004 




LAS 


06672 


507424 




ANO K1K 


06673 


741200 




SNA 


06674 


606677 




JMP ,*3 


06675 


700104 




RSA 


06676 


606572 




JMP RTNIT 


06677 


207001 




LAC GOPNiCH 


06700 


741200 




SNA 


06701 


606710 




JMP PNSTRT 


06702 


700104 




RSA 


06703 


627001 


/ 

OATABL 


JMP* GOPNCH 


06704 


007612 


TTBUFA-1 


06705 


007676 


ENDBIN 


TT9UFA*63 


06706 


007676 


OUTTOP 


TTBUFA*63 


06707 


007762 


ENDOUT 


TTBUFA*147 
•EJECT 



/IF EQUAL CO POmCh A^ ^j-a^ 



/ERROR, READ FLAG UP 



/ERROR, PUNCH F^G UP 

/ttout s Char, bin pointer 

/GET CHAR, FROM TTY Pl^ 
/PRIVT ONE CHARACTER 

/RETURN TO INST, TEST 



/CLEAR TTY FLAG 



/TEST ACS 8 A 1 

/SELECT READER 

/RETURN TO INST, TEST 

/0»1ST TIME THRU 
/START SEQUENCE 
/SELECT READER 
/CONTINUE SEQUENCE 



Pa'CCTU 



BX8K 



BXBK 



•"6713 


107273 


06711 


750024 


"6712 


507425 


36713 


740200 


06714 


606727 


26715 


7004P2 


06716 


750004 


36717 


507427 


Z6723 


741200 


06721 


606724 


36722 


700202 


06723 


606572 


06724 


7500P0 


06725 


700104 


06726 


107001 


06727 


207357 


06730 


047361 


06731 


447361 


06732 


207361 


P6733 


107001 


06734 


207362 


06735 


107001 


06736 


207361 


06737 


547363 


06740 


741000 


06741 


606731 


06742 


207355 


06743 


047361 


06744 


447361 


06745 


207361 


06746 


107001 


06747 


207362 


06750 


107001 


06751 


207361 


06752 


547356 


06753 


741000 


2)6754 


606744 


06755 


207364 


06756 


047361 


06757 


107001 


06760 


207361 


06761 


107264 


06762 


107001 


06763 


777770 


06764 


047361 


76765 


750001 


06766 


700010 


06767 


740200 


06770 


740040 



/PUNCH DATA 

/ 

BNSTRT JMS 




CRLF 


LAS 




AND 


K400 


S2A 




JMP 


PNXT"2 


tcf 




LAS 




AND 


K3K 


SNA 




JMP 


,*3 


per 




JMP 


RTNIT 


CLA 




RSA 




JMS 


GOPNCH 


LAC 


K300 


DAC 


STORE 


PNXT ISZ 


STORE 


LAC 


STORE 


JMS 


GOPNCH 


LAC 


SPCE 


JMS 


GOPNCH 


LAC 


STORE 


SAO 


K332 


SKP 




JMP 


PNXT 


LAC 


K257 


DAC 


STORE 


»NXTA !SH 


STORE 


LAC 


STORE 


JMS 


GOPNCH 


LAC 


SPCE 


JMS 


GOPNCH 


LAC 


STORE 


SAO 


K27i 


SKP 




JMP 


PNXTA 


LAC 


kcrlp 


DAC 


STORE 


JMS 


GOPNCH 


LAC 


STORE 


JMS 


R0TAT9 


JMS 


GOPNCH 


LAW 


»10 


DAC 


STORE 


CLA! 


CMA 


700010 


SZA 




:647 MALT 





/CR.LF 



/TTY ONLY 
/CLEAR TTY FLAG 

/MASK ACS 7 AND 8 

/IF EITHER IS A i, DON'T PUN^H 

/PUNCH DATA 

/CLEAR PUNCH FLAGi NO ^ORE 

/Pi's from punch Should occur, 

/RETURN TO INST, TEST 

/SELECT READER AN'D PUNCH 
/TO INITIATE SEQUENCE 



/PUNCH CHAR, IN AC 10«17 

/(SPCE)«240 
/PUNCH SPACE 

/DONE WITH ALPHABET IF EOUAL 

/PUNCH MORE CHARS, 



06771 750004 



LAS 



/(KCRLFjsCR.L? 

/PUNCH CR 

/ROTATE 9 RIGHT 
/PUNCH LF 



/AC = 777777 

/CLEAR AC WITH MR 14 

/ERROR, EVENT Tj«E 1 DIDN'T 
/CLEAR AC i 
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BX8K 



y x 8 K 



36772 
36773 

5)6774 
?6775 
06776 
06777 

37003 



507425 

740200 
6067?7 
107001 
447361 
606765 
606727 



AKiQ K403 
S2A 

JMP p\XTi2 
J*S GOPNCH 
t Si STGRE 
jmp E647»3 
jmp PNjXf»2 
.EJECT 



/TTY ONLY 

/PUNCH 8 ffi4"f.S Of TS 



/START NEW in-l 



pa 



13 



BX8K 



BX9K 



07001 


000000 


GOP'MCH 







07002 


606663 




JMP 


E646+3 


07P03 


700204 




PSA 




?7e04 


700201 




psr 




3700S 


741000 




SKP 




717006 


74O040 


E647A 


MLT 




07007 


750004 




LAS 




07010 


507430 




AND 


K4K 


07?11 


740200 




S2A 




217012 


606572 




JMP 


RTNJT 


07013 


447353 




IS2 


CNTA 


07014 


207354 




LAC 


CNT8 


07015 


74J5200 




S2A 




07016 


607053 




JMP 


SUBl 


07017 


606572 




JMP 


RTNIT 






/READ 
/ 

READA 


PUNCHED INFO 


07020 


750004 


LAS 




07021 


507427 




AND 


K3K 


£7022 


740200 




S2A 




07023 


607135 




J*P 


READB 


07024 


750004 




LAS 




07023 


507430 




AND 


K4K 


07026 


741200 




SNA 




07027 


607032 




JMP 


,*3 


07030 


700112 




RRB 




07031 


606572 




JMP 


RTNIT 


07032 


700112 




RRB 




07033 


740200 




S2A 




07034 


607041 




JMP 


2R0N0T 


07035 


207353 




LAC 


CNTA 


07036 


740200 




SEA 




07037 


607053 




JMP 


SUBl 


07040 


607051 




JMP 


TADOl 


07041 


447352 


2RON07 


IS2 


TTJN 


07042 


067352 




OAQ« 


> TTIN 


07043 


207352 




LAC 


TTIN 


07044 


346703 




SAD 


FNDBIN 


07045 


607061 




JMP 


SETTY 


07046 


207353 




LAC 


CNTA 


07047 


740200 




S2A 




07050 


607053 


/ 

TADDl 


JMP 


,♦3 


07051 


447354 


ISZ 


CNTB 


07052 


606572 




JMP 


RTNJT 


07053 


777777 


SUBl 


LAW 


-1 


07054 


347353 




TAD 


CNTA 


07055 


047353 




DAC 


CNTA 


07056 


147354 




D2M 


CNTB 


07057 


700104 




RSA 




07060 


606572 




JMP 


RTNIT 



/PRp.T 



/PUNCH FLAG SET 

/MASK ACS 6 

/IF A 1, DON'T USE C'TA OR C'TB 
/RET'JRM TO I\ST, TEST 
/C^TAsPuf Cm SELECTED 

/0«WAIT FOR PI 

/1?SELECT READER AGAIN 
/RETURN TO I f ! ST . TEST 



/MASK ACS 7 AND R 

/IF EITHER IS A i, RFAD FULL SPEFD 



/MASK ACS 6 

/IF A 1, CLEAR READER ^LAG, \'C 

/MORE PI 'S FROM READER 

/CLEAR READER F L aG 

/RETURN TO INST. TEST amp, 
/WAIT FOR PUNCH PI 
/READ ONE 

/0»no data in reader yet 

/see if punch js selected 

/yes, subtract from cnta 
/reader selected 
/store char, in tty rjn, 



/CHECK FOR 52 CHARACTERS STOREi 
/DONE, SETUP TO PRINT 



/RETURN TO !»'ST. TEST 

/{CNTAJ-1 

/RETURN TO pjST, TEST 



.EJECT 



page in 

07061 
P7062 
07063 
07064 
07065 
07066 
07067 
07070 
07071 
07072 
07073 
07074 
07075 
07076 
07077 
07100 
07101 
07102 
07103 
07104 
07105 
07106 
07107 
07110 
07111 

07112 
07113 

07114 
07115 
07116 
07117 

07120 
07121 
07122 
07123 
07124 
07125 
07126 
07127 
07130 
07131 
07132 
07133 



BXBK 

700201 
607061 
700202 
700402 
207334 
547417 
607112 
447334 
206704 
047352 
206706 
047351 
447352 
227352 
447351 
067351 
207351 
546707 
741000 
607075 
206704 
047352 
206706 
047351 
606651 

207001 
507463 
547134 

741000 
607071 
777771 
047334 
777777 
700010 
740200 
740040 
700204 
700201 
607126 
447334 
607121 
700202 
607071 



BX8K 
SETTY 



.-1 



XFR1 



/ 

PUN6 



E648 



07134 006776 



/ 

K647 
/ 



psf 

JMP 

per 

TCF 

LAC BREAK 
SAO K12A 
JMP PUN6 
IS2 BREAK 
I.AC DATABL 
DAC TTIN 
L*C OUTTOP 
OAC TTOUT 
ISZ TTIN 
LAC» TTIN 
ISZ TTOUT 
DAC« TTOUT 
LAC TTOUT 
SAD ENDOUT 
SKP 

JMP XFRl 
LAC DATABL 
DAC TTIN 
LAC OUTTOP 
OAC TTOUT 
JMP TTYJNT*3 

LAC GOPmCH 

AND K17S 

SAD K647 

SKP 

JMP XFRl-4 

LAW -7 

OAC BREAK 

LAW «l 

700010 

SEA 

HALT 

PSA 

PSP 

JMP ,»1 

ISZ BREAK 

JMP E648-3 

PCF 

JMP XFR1-4 

GOPNCH-3 

.EJECT 



/WAIT FO" PUNCH 

/CLEAR PUNCH FLAG 
/CLEAR TTy FLAG 



/RESTORE INPUT/OUTPUT P0I\TE3S 
/REAPER TO BIN 

/BIN TO TTY 

/TRANSFER BUFFER A TO 9UFFC* B 



/DONE IF EQUAL TO TTBUFB*63 

/TRANSFER ANOTHER 
/RESTORE BUFFER POINTERS 

/TTBUFB-i 

/BEGIN PRINTING 

/PUNCH 0'S ONLY AT END OF BLOCK 

/(GOPNCH) N0T«G0PNCHi3 

/FRAME COUNTER 

/AC*777777 

/CLEAR AC WITH BIT 14 

/ERROR. MB14 DIDN'T CLEAR AC 
/PUNCH BLANK FRAME 



/CLEAR PUNCH FLAG 
/SETUP TO PRINT 



R A 



15 



BX8k 



BX8K 



37135 


750004 


07136 


507432 


07137 


741200 


07140 


607143 


07141 


700112 


07142 


606572 


07143 


700112 


07144 


741200 


07145 


607153 


07146 


447352 


37147 


067352 


07150 


207352 


07151 


546705 


07152 


607160 


07153 


700104 


07154 


700101 


07155 


741000 


07156 


740040 


07157 


606572 


07160 


206704 


07161 


047352 


07162 


750004 


07163 


507431 


07164 


740200 


07165 


607153 


07166 


607064 


f-7167 


000000 


07170 


507424 


07171 


740200 


07172 


607177 


07173 


760320 


07174 


247365 


07175 


047402 


07176 


607201 


07177 


760322 


07200 


607174 


07201 


207216 


07202 


047335 


07203 


107273 


07204 


447335 


07205 


227335 


07206 


741200 


07207 


607214 


77210 


107237 


07211 


107264 


07212 


107237 


07213 


607204 



/READB ROUTINE IS USED ONLY WHEN PUNCH IS I^h-JTED 
/BY ACS 7 OR 8, OR BnTH, READER RUNS AT rULL SrEFQ, 
/ 



READP 



K4K 



,*3 



SELECT 



E649 



LAS 

AND 

SNA 

JMP 

RRB 

JMP RTN:IT 

RRB 

SNA 

JYP SELECT 

ISZ TTJn 

DAC* TTIN 

LAC TTlN 

SAD END8IN 

JMP ,*6 

RSA 

RSF 

SKP 

ULT 

JMP RTN'IT 

LAC DATABL 

DAC TTlN 

LAS 

AND K6K 

S2A 

JMP SELECT 

JMP SETTY*3 



/MASK ACS 6 
/If A 1, DON'T 



Rr A' 



/CLEAR READER F L aG 

/RETURN TO I'ST, TEST 
/GET CHAR, fro* 3 UFrrR, 
/0 a NO DATA JN READER YET, 

/SELECT READER AGAIN 

/BUFFER POINTER ♦! 

/STORE C"AR, !"■- TTBUTA 



/CHECK FOR 52 CHARS, 
/TTBUFA IS FULL 
/SELECT READER 



STORED 



/READER FLAG SET 

/RETURN TO 



INST, TEST 



/RESTORE TT3UFA POINTER 

/MASK ACS 6 AND 7 

/IF EITHER A 1. DOMT PRINT 

/SElftOT. READER AGAIN 
/SETUP TO PRINT 



/SERVICE 
/ 

RNFLG 



NO TAPE CONDITIONS 



/ 

outflg 





AND K1K 
SZA 
JMP ,♦? 

LAW 320 
XOR K520K 
DAC NTFLG*l 
JMP OUTFLG 
LAW 322 
JMP ,«4 

LAC NTFL 
DAC WDCNT 
JMS CRLF 
IS2 WDCNT 
LAC« WDCNT 
SNA 

JMP CL"FLG 
JMS TLSSF 
JMS ROTAT9 
JMS TLSSF 
JMP 0UTFLG*3 



/CHECK FOR READER NO TAPE 

/READER 
/PUNCH NO TAPE 



/PRINT R OR P No 
/READER no TAPE 



/CR»LF 



TAPE 



page ii6 


BX8K 


07214 
?7?15 
07?16 


107273 
627167 

?07401 



RX8K 



CL.CFLG 



NTFL 



J M S CRLF 
j^P« RNFL.G 
MFLG 
.EJECT 



/RETURN TO SFQUf>CE 



PA' 



17 



BX8K 



PX8K 







/PUNIC* 


LEADER 


£7217 


5100003 


/ 

PM.ED" 




■?722Zi 


777470 




L A w * 3 1 Z 


P7221 


047335 




DAC WDC.NiT 


07?22 


750000 




CLA 


07223 


700204 




PSA 


07224 


700201 




psr 


07223 


607224 




JMP ,.1 


07226 


447335 




ISZ WDC\'T 


07227 


607223 




JMP ,»4 


0723?" 


627217 




JMP« PMLEOR 


07231 


000000 


/ 

PNMARK 





07232 


777777 




LAM »1 


07233 


700204 




PSA 


07234 


700201 




PSF 


37235 


607234 




JMP ,.1 


07236 


627231 




JMP» PMMARK 
.EJECT 



/EXIT 
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BX8K 



BX8K 



07237 
07240 
07241 
07242 
07243 
07244 
37245 
07246 
07247 
*7250 
07251 
07252 
07253 
07254 
07255 
07256 
07257 
07260 
07261 
07262 
07263 



07264 
07265 
07266 
07267 
07270 
07271 
07272 



07273 
07274 
07275 
07276 
07277 
07300 
07301 



080002 
P47342 
207514 
740010 
740103 
607247 
70B4P1 
6C7245 
207340 
700436 
700431 
607251 
207002 
547302 
607262 
207514 
740010 
742100 
700402 
207340 
627237 



0000?0 
742020 
742020 
742020 
742020 
740020 
627264 



000000 
760215 
107237 
547300 
627273 
760212 
607275 



/PRINT A CHARACTER 

/ 

TLSSF 

DAC MOVET 
LAC WORK 

R*U 
SMA 

TSF 
JMP ,*1 

LAC MOVED 

TLS 

TSF 

JMP ,-1 

L*C GOPNCH*l 

SAO KJMP 

JMP ,*5 

LAC WORK 

RAL 

SMA 

TCF 

lac moved 
jmp« tlssf 

/ 

/ROTATE 9 RIGHT 
/ 



R0TAT9 




RTR| 



RTR| 
JMP* 



/CNECK TTV FLAG 



/WAIT FO" FLAG 



/CLEAR TTY IF BIT 1 ■ 



RTRI 

RAR 
R0TAT9 



RTR 



/CARRIAGE RETURN, LINEFEED 

/ 

CRLF 

LAW 215 /C* 

JMS TLSSF 

SAO ,*2 

JMP» CRLF 

LAW 212 /LF 

JMP C«UF*2 



/EXIT 



07302 606663 



/ 

KJMP 

/ 



JMP E646*3 

•EJECT 



AGWR9 BX8* BXSK 



07303 


000000 


07304 


207520 


37305 


547417 


07306 


741000 


Z7307 


627303 


07310 


147520 


27311 


157520 


5!73l2 


207326 


07313 


040014 


07314 


107273 


37315 


220014 


07316 


741200 


07317 


607324 


07320 


107237 


07321 


107264 


07322 


107237 


07323 


607315 


07324 


107273 


07325 


627303 



/PRINT "COMPLETE" 

/ 

PJNOT 

LAC W0R<4 /PASS Coi'ME" 

SAD K12A /PRINT fr CfjpAL TO 1 

SKP 

JHP» PlMOT /START PROGRAM 

DHM WORK4 

DEH WORK4*10000 

LAC COMPA 

OAC 14 /PRJVT COMPLETE 

JMS CRLF 

LAC« 14 

SNA /DONE PRINTING IF ?. 

JMP ,*5 

JMS TLSSF /PRINT l CHAR 

JMS R0TAT9 

JMS TLSSF /PRINT 2f,D 

JMP ,.6 /GET NEXT PAIR 

JMS CRLF /C«i LF 



/ 
07326 007373 COMPA COMp 



JMP# PINOT 

COMP 
•EJECT 
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BX8K 



BX8K 







/CONSTANT TABLE FOR CHFCkERBOARD A*D 


PI 






/SERVICE ROUTINES 




07327 


752525 


/ 

L.I*ITA 


752525 /OELIMITFR 




P7330 


000000 


PATR 


? 




07331 


000000 


PATWO 







07332 


000112 


3GNL0 


SE3UEN 




07333 


010112 


BGNHI 


SE0UEM*lZ32!i} 




07334 


000000 


PREAK 







07335 


000000 


WDCNT 







07336 


777776 


WC256 


777776 




07337 


000000 


MOVES 


a 




07340 


000000 


MOVED 


z 




07341 


777777 


BITSUP 


777777 




07342 


007777 


K7777 


7777 




07343 


100000 


K100K 


100001? 




07344 


001400 


K1400 


1400 




07345 


003400 


K3400 


3400 




07346 


500000 


K500K 


500000 




07347 


000777 


K777 


777 




07350 


777611 


M167 


777611 




07351 


000000 


TTOUT 







07352 


000000 


TTIN 







07353 


000000 


CNTA 







07354 


000000 


CNTB 







07355 


000257 


K257 


257 




07356 


000271 


K271 


271 




07357 


000300 


K300 


300 




07360 


000301 


K301 


301 




07361 


000000 


STORE 







07362 


000240 


speE 


240 




07363 


000332 


K332 


332 




07364 


212215 


KCRLF 


212215 




07365 


520000 


K520K 


520000 




07366 


000000 


LWR 







07367 


000000 


UPR 







07370 


000000 


WC02 


2 




07371 


000000 


WC04 







07372 


000000 


WC32 








.EJECT 



PASPT21 



BX8K 



3X9< 







/PRl\;' 


T ROUTJNE CONSTANTS 






/"CO"' 

/ 

co^p 


3|_ETE" 


?7373 


307373 


t 


07374 


317303 




3173031 3233l5| 305314; 3053241 ? 


87375 


320315 






07376 


305314 






07377 


305324 






07402 


000000 










/ 

/R 0" 
/ 

MTFLG 


P NO TAPF 


07401 


007401 


• 


07402 


000000 







07403 


317316 




317316} 3242401 3203P1 


07404 


324240 






07405 


320301 






07406 


240305 




2403051 207207 


07407 


207207 






27410 


000000 











/CONSTANT AND ERROR TABLES, MOT MOOjr 


27411 


000000 


K0 





£7412 


000001 


Kl 


1 


07413 


000002 


K2 


2 


07414 


000004 


K4 


4 


07415 


000010 


K1B 


10 


07416 


000011 


Kii 


11 


07417 


000012 


K12A 


12 


07420 


000100 


K100 


100 


07421 


000020 


K20 


20 


07422 


000022 


K22 


22 


27423 


000040 


X40 


40 


07424 


001000 


K1K 


1000 


07425 


000400 


K400 


400 


07426 


002000 


K2K 


2000 


07427 


003000 


K3K 


3000 


07430 


004000 


K4K 


4000 


07431 


006000 


K6K 


6000 


07432 


000200 


K200 


200 


07433 


207400 


K207 


207400 


07434 


040000 


K40K 


40000 


07435 


400000 


K400K 


400000 


07436 


400002 


K402K 


400002 


07437 


010000 


K10K 


10000 


07441? 


020000 


K20K 


20000 


07441 


200000 


K200K 


20000e 


07442 


600000 


K600K 


600000 


07443 


700000 


K700K 


700000 


07444 


002021 


K2021 


2e2i 


07445 


002120 


K2120 


2120 


07446 


111111 


K1S 


111111 


07447 


222222 


K2S 


222222 


07450 


333333 


K3S 


333333 
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BXBk 



BX8* 



07451 


444444 


K4S 


444444 


07<52 


555555 


K5S 


555555 


27453 


666666 


K6S 


666666 


07454 


777777 


K7S 


777777 


557455 


011111 


K51S 


11111 


07456 


012222 


K12S 


12222 


07457 


013333 


K13S 


13333 


07462 


014444 


K14S 


14444 


07461 


015555 


K15S 


15555 


07462 


016666 


K16S 


16666 


07463 


017777 


K17S 


17777 


07464 


002525 


K2525 


2525 


07465 


005252 


K5252 


5252 


07466 


252525 


K010 


252525 


07467 


525252 


K101 


525252 


07470 


525253 


K53 


525253 


07471 


077777 


K37S 


077777 


07472 


525002 


K502 


525002 
.EJECT 



'"ASS 



BX8k 



9X8K 



07473 


700042 


*7X42 


700042 


?7474 


70B0P'2 


«7XX2 


700002 


27475 


7600P2 


<76X2 


760002 


07"76 


10?0?2 


<1XX2 


10000? 


07177 


6040F2 


<6X42 


604002 


07500 


3440P2 


*344x2 


344002 


07501 


741000 


KSKP 


SKP 


07502 


750000 


KCLA 


CLA 


07503 


777776 


Ml 


777776 


07504 


777773 


v4 


777773 


07505 


777737 


"40 


777737 


07506 


777377 


M400 


777377 


07507 


773777 


m4K 


773777 


07510 


737777 


M40K 


737777 


07311 


377777 


H400K 


377777 


07512 


000377 


K377 


377 


07513 


000000 


/ 

RJCNT 





07514 


000000 


W0«K 





07515 


000000 


W0*K1 





07516 


000000 


W0«K2 





07517 


000000 


wORK3 





07520 


000000 


W0RK4 





07521 


000000 


IUDR 





07522 


000000 


AUTNOT 





07523 


000000 


TCUK 





07524 


740010 


XCTRAL 


RAL 


07525 


740001 


AUTCMA 


CMA 


07526 


000000 


SAVAC 





07527 


000000 


RJMP 





07530 


420015 


LAWAUT 


XCT« 15 


07531 


777777 


LAWFUL 


LAW 17777 


07532 


120015 


JMSAUT 


JMS» 15 


07533 


740040 


KHALT 


740040 


07534 


620012 


JMPAUT 


JMP» 12 


07535 


200000 


SAV4 


L*C 


07536 


741400 


KS2L 


741400 


07537 


740400 


KSNL 


740400 


07540 


123456 


RANCON 


123456 


07541 


654321 


RANT8L 


654321 


07542 


361416 




361416 


07543 


055363 




055363 


07544 


546060 




546060 


07545 


243035 




243035 


07546 


762572 




762572 


07947 


453237 




453237 


07550 


150214 




150214 


07551 


000000 





.EJECT 
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BX8K 



BX3K 



07552 
07553 
07554 
07555 
07556 
07557 
07560 
07561 
07562 
07563 
07564 
07565 
07566 
07567 
07570 
07571 
07572 
07573 
07574 
07575 
07576 
07577 

07600 
07601 
07602 
07603 
07604 

07605 
07606 
07607 
07610 
07611 
07612 
07613 
07614 



?000!?0 

003003 

000000 
000000 
200000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 

000000 
000000 
000000 
000000 
000000 

-000000 
000000 
000000 
000000 
0.0.0000 
000000 
000000 
752525 
000000 

SIEE = 



/E3R0" TABLES 
/ 



JMPSET 

Jill 

J222 

J333 

J4<4 

J555 

J666 

J777 

J525 

J252 

CAL3 

CAL1 

JSM71 

JSM72 

JSM73 

JSM74 

JSM75 

JSM76 

JSM77 

JS252 

JS525 

JSSS 

/ 

XCTll 

XCT12 

XCT13 

XCT17 

XCT125 

/ 

JST77 

JST66 

JST55 

JST44 

AUTJMP 

AUTJMS 

TTBurA 



07615 











752525 
.END 
NO ERROR 



/JMP 
/JMP 
/JMP 
/JMP 
/JMP 
/JMP 
/JMP 
/JMP 
/JMP 
/JMP 
/CAL 
/CAL 
/JMS 
/JMS 
/JMS 
/JMS 
/JMS 
/JMS 
/JM§ 
/JMS 
/JMS 
/JMS 



22 

11111 (E509) 
12222 (E510J 
13333 (F5111) 
14444 (£512) 
15555 «E513> 
16666 (F514) 
17777 (F515) 
15252 (E516) 
12525 <E517> 
FROM 17757 EXT, LINK 
FROM 17757, LIMX * 1 
FROM 07777 TO lllll 
FROM 07776 TO 12222 
FROM 07775 TO 13333 
FROM 07774 TO 14444 
FROM 07773 TO 15555 
FROM 07772 TO 16666 
FROM 07771 TO 17777 
FROM 12525 TO 15252 
PROM 15252 TO 12525 
SERIES TEST <E540) 



' P (E516) 

(E520) 
(E522) 
(E524) 
(E526) 
(E52B) 
(E530J 
(E532) 
(E534) 
(£536) 
(E538) 



/XCT JMS, FROM lllll XCT (16666) (E562) 
/XCT JMS', FROM 12222 XCT (15555) (E564) 
/XCT JMS'. FROM 13333 XCT (14444) (E566) 
/XCT J,S FROM 07776 XCT (17776) (E568) 
/XCT JMS. FROM 12525 XCT (15252) 

/JMS* 07777 (E592) 

/JMS. 16666 (E594) 

/JMS* 15555 (E596) 

/JMS. 14444 (E598) 

/JMP* 12 (AgTO^INOEX) (E620) 

/JMS* 17 (AUTO-INQEX) (E633) 



LINES 



BXBK 



BXBK 



AAC 

AAS 

ABMATS 

ADOAC 

ADDACJ, 

ADDI 

AQEDON 

AMBPBT 

AMBSUM 

AMINSB 

AMNSBT 

ANOAC 

ANEG 

APUSBT 

APLUSB 

APOS 

AURJMP 

AUTCMA 

AyTjMP 

AUTJMS 

AUTNOT 

AUTOIN 

AyTR 

AUTRET 

AUTRE1 

AUTRJM 

AXR 

AXS 

BEGIN 

8GNAGN 

BGNHI 

BGNLO 

BISETU 

BJTN 

BITSUP 

BITTSI 

BITTS2 

BMAMBT 

BMASUM 

BMINSA 

BMNSAT 

bneg 

BPOS 
BREAK 

CALK 
CALi 
CKUP 

Ckno 

clac 

clkint 

clkset 

cllr 

clof 

cl,on 

clrflg 



723000 
720000 
02563 
21557 
02025 
05413 
03063 
02624 
03060 
02466 
02522 
01341 
03052 
02507 
02452 
03051 
06027 
07525 
07611 
07612 
07522 
05414 
05561 
06025 
05673 
06026 
737000 
725000 
00022 
06473 
07333 
07332 
03071 
06004 
07341 
03110 
03123 
02576 
03057 
02460 
02550 
03054 
03053 
07334 
07564 
07565 
03044 
06362 
734000 
06606 
06631 
736000 
700004 
700044 
07214 
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clsf 


700P01 


clx 


735000 


C\'Ta 


07353 


cnts 


07354 


CO u p 


07373 


COUP* 


07326 


CO\C*G 


03022 


CRLF 


07273 


OACAC 


03374 


Oatabl 


06704 


DB*X 


00237 


DBRXX 


00242 


DBSXXX 


00250 


D2MAC 


03255 


EBA 


707764 


ENDBIN 


06705 


EnDOUT 


06707 


enotpl 


06360 


entst 


06410 


EPA 


707762 


ER1 


05762 


EXBA 


707741 


EX01 


06034 


EX02 


06041 


Ex,03 


06043 


EX04 


06050 


Exes 


06052 


EXF6 


06061 


EX07 


06064 


EX10 


06066 


EX13 


06071 


EX14 


06075 


Exl5 


06077 


EX16 


06110 


EX17 


06115 


EX18 


06120 


EX19 


06122 


EX20 


06125 


EX21 


06135 


EX22 


06137 


EX23 


06143 


EX24 


06145 


EX25 


06151 


EX26 


06153 


EX27 


06157 


EX28 


06161 


EX29 


06165 


EX3B 


06167 


EX31 


06172 


EX32 


06174 


EX33 


06176 


EX34 


06203 


EX35 


06205 


EX36 


06211 


E^7 


06213 



BXSK 



BX8K 



V AG^B07 HX8* BX6K 



EX36 


06217 


EX39 


06221 


Ex<0 


06225 


EX41 


06227 


EX42 


0ft?34 


EX43 


06?36 


EX44 


06243 


EX45 


06245 


EX46 


06253 


EX47 


06255 


EX48 


06261 


EX49 


06264 


Exse 


06266 


EX51 


06271 


EX52 


06276 


EX53 


06301 


EX54 


06316 


EX55 


06321 


E113 


00677 


E114 


00724 


E115 


00740 


E116 


00754 


E140 


01002 


E141 


01030 


E142 


01045 


E143 


01062 


E162 


01066 


E163 


01072 


E164 


01076 


E165 


01102 


E166 


01106 


E167 


01112 


Ea.66 


01116 


E169 


01122 


E170 


01125 


E2&6 


01136 


E207 


01141 


E20B 


01144 


E209 


01147 


E210 


01152 


E2H 


01154 


E212 


01160 


E213 


01163 


E214 


01166 


E215 


01171 


E216 


01174 


E217 


01177 


E218 


01221 


E219 


01206 


E22I2 


01210 


E221 


01215 


E222 


01217 


E223 


01224 


E224 


01226 


^?25 


01233 
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BX 


£226 


31235 


E24 


33157 


E25 


20163 


E258 


31245 


E259 


C1247 


E26 


00167 


E260 


01253 


E261 


01255 


E262 


01261 


E263 


01263 


E264 


01267 


E265 


01271 


E266 


01276 


E267 


01300 


£266 


01305 


E269 


01307 


E27 


00173 


E27A 


00207 


E270 


01314 


E271 


01316 


E272 


01323 


E273 


01334 


E274 


01344 


E275 


01350 


E276 


01354 


£277 


01361 


E278 


01375 


E279 


01377 


E28 


00217 


E280 


01407 


E281 


01414 


E282 


01421 


E283 


01425 


E284 


01440 


E285 


01450 


E266 


01452 


E287 


01457 


E288 


01461 


E289 


01466 


E29 


00223 


E290 


01470 


E291 


01476 


E292 


01500 


E293 


01504 


E294 


01506 


E295 


01512 


E296 


01514 


E297 


01522 


£298 


01524 


E299 


01532 


E30 


00227 


E300 


01534 


E301 


01544 


E302 


01592 


ZM2 


^ftJ564 



XBk =X8< 



BX8K BX8K 



£304 01566 

E305 01574 

E306 01576 

E307 01604 

£308 016B6 

E309 01614 

E31 00233 

£310 01616 

£311 01624 

£312 0U26 

£313 01634 

£314 01636 

£315 01644 

£316 01646 

£317 01654 

£318 01656 

£319 01664 

£32 00262 

£320 01666 

E321 01675 

£322 01677 

£323 01706 

£324 01710 

£325 01717 

£326 01721 

£327 01730 

£328 01732 

£329 0i74l 

£33 00265 

£330 01743 

E331 01752 

£332 01754 

6333 01763 

£334 01765 

£335 01774 

£336 01776 

£337 02005 

£338 02007 

£339 02016 

£34 00271 

£340 02020 

£347 02033 

£348 02035 

£349 02044 

£35 002-7-4 

£350 02046 

£351 02055 

E352 02057 

£353 02066 

E354 02070 

£355 02077 

E356 02101 

£357 02H0 

E358 02H2 

E359 02121 
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E36 


003PIC 1 


E360 


02123 


E361 


02132 


£362 


02134 


E363 


02143 


E364 


02145 


E365 


02154 


E366 


02156 


E367 


02165 


E368 


02167 


E369 


02176 


E37 


00303 


E370 


02200 


E371 


02207 


E372 


02211 


E373 


02220 


E374 


02222 


E375 


02231 


E376 


02233 


E377 


02242 


E378 


02244 


E379 


02253 


E38 


00307 


E380 


02255 


E361 


02264 


E382 


02266 


E383 


02275 


E3B4 


02277 


E385 


02306 


E386 


02310 


E387 


02317 


E388 


02321 


E389 


02330 


E39 


00312 


E390 


02332 


E391 


02341 


E392 


02343 


E393 


02351 


E394 


02353 


E395 


02361 


£396 


02363 


E397 


02371 


E398 


02373 


E399 


02406 


E40 


00315 


E400 


02410 


E401 


02514 


E402 


02520 


E403 


02527 


E404 


02533 


E405 


02542 


E406 


02546 


E407 


02570 


E406 


02574 


E419 


22603 



RXBk 3XBK 



PXBk p*8k 



E41 


0032P 


E.410 


026C7 


£411 


02616 


£412 


02622 


£413 


02631 


£414 


02635 


E415 


02643 


£416 


02647 


£417 


02657 


£418 


02663 


£419 


02674 


£42 


00324 


E420 


027*0 


E421 


02712 


£422 


02716 


E423 


02731 


E424 


02735 


£425 


02751 


£426 


02755 


£427 


02772 


£428 


02776 


£429 


03014 


£43 


00327 


£430 


03020 


E431 


03113 


E432 


03121 


£433 


03130 


£434 


03134 


E435 


03156 


£436 


03161 


£437 


03164 


£438 


03170 


E439 


03175 


E44 


00333 


£440 


03201 


E441 


03205 


E442 


03212 


E443 


03231 


E444 


03250 


E445 


03261 


E446 


03266 


E447 


03273 


£446 


03300 


E449 


03305 


E45 


00336 


£450 


03312 


E491 


03317 


£432 


03324 


E453 


03331 


£454 


03336 


E455 


03344 


£456 


03346 


£457 


03351 


£458 


£3361 


E459 


03367 
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E46 


00342 


E460 


C3400 


E461 


03405 


E462 


03412 


£463 


03417 


£464 


03424 


E465 


03431 


E466 


03436 


E467 


03443 


£468 


03450 


E469 


03462 


E47 


00346 


£470 


03472 


£471 


03503 


E472 


03507 


E473 


03514 


E474 


03520 


E475 


03525 


E476 


03531 


E477 


03536 


£478 


03542 


E479 


03547 


£48 


00351 


E480 


03553 


£481 


03560 


£462 


03564 


£483 


03571 


£484 


03574 


E485 


03601 


£486 


03604 


£487 


03611 


£488 


03614 


E489 


03621 


£49 


00355 


£490 


03624 


£491 


03631 


£492 


03634 


£493 


03641 


£494 


03644 


E495 


03651 


£496 


03654 


E497 


03661 


£498 


03664 


£499 


03671 


£50 


00360 


£900 


03674 


E501 


03714 


£502 


03724 


ES03 


03750 


£504 


03756 


E505 


03764 


£506 


03773 


£507 


04002 


£508 


04031 


£509 


0*?37 



BX8K BX8K 



p AG^F53 BX8w Rx8K 



E51 


00363 


E510 


04050 


E511 


04061 


E512 


04072 


E513 


04103 


E514 


04114 


E515 


04125 


E516 


04i36 


E517 


04147 


E518 


04200 


E&19 


04216 


E519A 


04221 


£52 


00370 


E520 


04224 


E521 


04237 


E521A 


04242 


E522 


04260 


E523 


04275 


E524 


04300 


E525 


04316 


E526 


04321 


ES27 


04337 


E528 


04342 


E529 


04360 


E53 


00375 


E530 


04363 


E531 


04401 


E532 


04404 


E533 


04422 


E536 


04425 


E537 


04442 


E538 


04445 


Eg39 


04462 


E54 


00402 


E540 


04465 


E541 


04470 


E542 


04472 


E943 


04474 


E544 


04500 


E545 


04510 


£546 


04517 


E547 


04526 


E548 


04535 


E549 


04617 


E55 


00410 


E550 


04622 


E55l 


04627 


E552 


04631 


E553 


04633 


E554 


04637 


E555 


04644 


E556 


04650 


E557 


04656 


E558 


04660 


E559 


04665 
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E56 


00417 


E560 


04667 


E561 


04675 


E562 


04700 


E563 


04715 


E564 


04720 


E565 


04735 


E566 


04740 


E567 


04755 


E568 


04760 


E569 


04775 


E57 


00422 


E570 


05000 


E571 


05015 


E572 


05034 


E573 


05036 


E58 


00427 


E584 


05101 


E585 


05112 


E586 


05123 


ES87 


05134 


E588 


05145 


E989 


05156 


£99 


00434 


E590 


05167 


E591 


05200 


E592 


05211 


E593 


05230 


E594 


05235 


E595 


09233 


E596 


05257 


ES97 


05275 


E598 


09301 


ES99 


05317 


E60 


00440 


£600 


05353 


£601 


05361 


£602 


05373 


£603 


05422 


E604 


05426 


E605 


05435 


E606 


05441 


E607 


05450 


E608 


05454 


£609 


05463 


E61 


00443 


£610 


05467 


E611 


05476 


£612 


05502 


E613 


05511 


£614 


05515 


E615 


05524 


E616 


05530 


E617 


05536 


E^8 


05541 



BX6K BX8K 



p A^^BF35 bx6k 8X8K 



£619 


05^4b 


It? 


0044t> 


E62d 


055^f 


£621 


VbSbb 


t6?2 


0557ft 


£623 


0S6i?2 


£624 


05612 


£625 


05616 


E626 


05626 


E627 


05630 


E628 


05634 


E629 


05640 


£63 


00451 


E63B 


05647 


E631 


05653 


£632 


05657 


E633 


05662 


E634 


05700 


E635 


05704 


E636 


05712 


E637 


05716 


E638 


05721 


E639 


05730 


E64 


00454 


E640 


05743 


E641 


05747 


E642 


06541 


E642A 


06545 


E643 


06553 


E644 


06601 


E644A 


06611 


£645 


06655 


£646 


06660 


E647 


06770 


E647A 


07006 


E646 


07124 


E649 


07156 


E65 


00462 


E66 


00467 


E67 


00473 


E68 


00501 


E69 


00504 


E70 


00510 


E71 


00513 


E72 


00517 


E73 


00522 


E74 


00526 


£75 


00532 


E76 


00535 


E77 


00540 


E78 


00545 


E79 


00551 


£80 


00555 


£81 


00561 


E82 


00564 
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Bxe< 



8*8* 



E83 

E84 

E85 

E86 

E87 

ESS 

E89 

E.90 

E91 

E92 

GENRAN 

GOPNCH 

HALT 

IAC 

IIADR 

ILINT 

INHIT 

1NITPJ 

INIT4K 

INK52 

IOTST 

ISZAC 

JMPAUT 

JMPRET 

JMPSEQ 

JMSAUT 

JMSU 

JSI44 

JSI55 

JSI66 

JSM71 

JSH72 

JSM73 

JSM74 

JSM75 

JSH76 

JSM77 

JSSS 

JST44 

JST55 

JST66 

JST77 

JS1 

JS2 

JS252 

JS3 

JS4 

JS525 

Jill 

J222 
J252 
J333 

J444 
J525 
v!5i5 



30570 
00573 
00577 
006^3 
00626 
00613 
00621 
00626 
00636 
00646 
06336 
07001 
740040 
740030 
07521 
06605 
00150 
00147 
04003 
05326 
00154 
03477 
07534 
07552 
04163 
07532 
03327 
05337 
05335 
05332 
07566 
075«7 
07970 
07571 
07572 
07573 
07574 
07577 
07610 
07607 
07606 
07605 
04467 
04471 
07575 
04473 
04477 
07576 
07553 
07554 
07563 
07555 
07556 
07562 
fi.7557 
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J666 


07560 


J777 


07561 


KCAUE 


04255 


KCALPi 


04253 


KCL.A 


07522 


K C RLT 


07364 


KHALT 


07533 


KjMP 


07302 


KjSl 


04576 


KJS2 


04577 


KJS3 


04600 


KJS4 


04601 


KNOP 


06005 


KRB 


700312 


KSF 


700301 


KSKP 


07501 


KSNL 


07537 


KSHL 


07536 


K0 


07411 


K010 


07466 


Kl 


07412 


KIK 


07424 


KlS 


07446 


K1XX2 


07476 


Kia 


07415 


K10K 


07437 


K100 


07420 


K100K 


07343 


K10000 


04545 


K101 


07467 


Kll 


07416 


K11110 


06022 


KlUll 


06023 


*%* 


05047 


KiZA 


07417 


K12S 


07456 


*l2221 


0*020 


K12222 


B#02l 


KISS 


07457 


K13332 


06016 


K13333 


0*017 


KJ4S 


07460 


K140B 


07344 


K14443 


06014 


K14444 


06015 


KISS 


07461 


K15252 


06024 


K15253 


05334 


K15554 


06012 


K15555 


06013 


K16S 


07462 


K16665 


06010 


KJ6666 


06011 


Kt?S 


07463 


K17776 


06006 



BX8K 



BX8K 
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BX 


KJ7777 


06007 


K2 


07413 


K2K 


074?6 


K2S 


07447 


K2? 


07421 


<2ZK 


07440 


K2ae 


07432 


K200K 


07441 


K2021 


07444 


K207 


07433 


<2teK 


04602 


K212? 


07445 


K2152 


04612 


K22 


07422 


K23 


05053 


K2525 


07464 


K257 


07355 


K271 


07356 


K273 


04607 


K274 


04606 


K275 


04605 


K276 


04604 


K277 


04603 


K3K 


07427 


K3S 


07490 


K300 


07357 


K3B1 


07360 


K332 


07363 


K34 


05057 


K3400 


07345 


K344X2 


07500 


K3TS 


07471 


K377 


07512 


K4 


07414 


K4K 


07430 


K4S 


0f45l 


K40 


07423 


K40K 


07434 


K400 


07425 


K400K 


07435 


K402K 


07436 


K415 


04575 


<426 


04571 


K5S 


07452 


K500K 


07346 


K502 


07472 


KStS 


07455 


K520K 


07365 


K5252 


07465 


K53 


07470 


K6K 


07431 


K6S 


07453 


K6X42 


07477 


K600K 


07442 


K^L5 


£4611 



BX8K 



pa? 



BX8K 



BX8K 



K626 


046ie 


K647 


27134 


K7S 


07454 


«7XX? 


07474 


«7X42 


07473 


K700K 


27443 


K71 


04574 


K72 


04566 


K73 


04564 


K74 


04561 


K75 


04556 


K76 


04553 


K76X2 


07475 


K77 


04550 


K777 


07347 


K7777 


07342 


UACJN 


05071 


LACK 


01242 


LAWAUT 


07530 


LAWD 


05754 


LAWFUL 


07531 


LAWS 


05756 


LEM 


707704 


LIMJTA 


07327 


LWR 


07366 


MABPAT 


02611 


MAPLMB 


02535 


MJMSAB 


02444 


MJNUSA 


02424 


M1NUSB 


02434 


MOD 


04164 


MOONEG 


03103 


MOOX 


04034 


MOVE 


06421 


MOVED 


07340 


MOVES 


07337 


MRINS 


06510 


MSKBIT 


03061 


MVBK 


06503 


MVCST 


06443 


MVRTN 


06435 


M0ACPA 


02637 


Ml 


07503 


Ml*7 


07350 


M4 


07504 


M4K 


07507 


M40 


07505 


M40K 


07510 


M400 


07506 


M400K 


07511 


NOCLK 


06543 


NOPl 


740000 


N0P2 


740000 


N0P3 


740000 


Ntri 


07216 
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! BX 


NTFLG 


074P1 


0FLCH1 


e2662 


0FICH2 


02677 


0FLCH3 


02715 


0FICH4 


02734 


OFLCW5 


02754 


0FLCM6 


02775 


OFLCH7 


03017 


0FLCH8 


03120 


0FLCH9 


03133 


OFLCK1 


02517 


OFLCK2 


02532 


OFI.CK3 


02545 


0FUK5 


02573 


0FLCK6 


02606 


0FUCK7 


02621 


0FLCK8 


02634 


0FLCK9 


02646 


OPERAT 


00260 


OPRAT 


00256 


OUTFLG 


07201 


OUTTOP 


06706 


PAL 


722000 


PASS2 


03062 


PATR 


07330 


PATWD 


07331 


PAX 


721000 


PCF 


700202 


PC05 


06310 


PINOT 


07303 


PJON 


06603 


PLA 


730000 


PUX 


731000 


PNLEDR 


07217 


pnmark 


07231 


pnstrt 


06710 


pnxt 


06731 


pnxta 


06744 


PREAOY 


06665 


PSA 


700204 


PSB 


700244 


PSF 


700201 


PgN6 


07112 


PXA 


724000 


PXL 


726000 


RANADO 


02415 


rancon 


07540 


randex 


06357 


Rangen 


06367 


Ramtao 


06353 


RANTBL 


07541 


RCAUS0 


04212 


RCALS1 


04233 


RCA|»Z> 


04252 


5A6U1 


£4254 



BX8K 



141 



BX8K 



BX8K 



Rcr 

«EADA 
S£ADB 
RFROM 
RJCNT 
RJMI1 
RJMI2 

RJMJ4 

RJMP 

RJMP1 

RJMP2 

RJMP3 

RJMP4 

RJMP5 

RJMP6 

RJMP7 

RJMPB 

RJMP9 

RjMSS 

RJMS14 

RJMS15 

RJMS71 

«JMS72 

RJMS73 

RJMS74 

RJMS75 

KJMS76 

Rjsjix 

"JSI2 

RJSI3 

RJSI4 

fjSM25 

RJSM52 

"JSM71 

«JSM72 

"JSM73 

RJSM74 

RJSH75 

RJSM76 

RJ111 

RJ222 

RJ252 

Rj333 

RJ444 

RJ525 

RJ555 

RJ666 

RJ777 

"NFUG 

R0TAT9 

RRB 

RSA 

*SB 



700102 
07i220 
27135 
06425 
07513 
05330 
05333 
05336 
05340 
07527 
04045 
04056 
04067 
04100 
04111 
04122 
04133 
04144 
04155 
04501 
04436 
04456 
04271 
04312 
04333 
04354 
04375 
04416 
05223 
05331 
05247 
05271 
05313 
04567 
04572 
04543 
04546 
04551 
04554 
04557 
04562 
04165 
04166 
04174 
04167 
04170 
04175 
04171 
04172 
04173 
07167 
07264 
700112 
700104 
700144 
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BX 


Rsr 


700101 


RSM25 


04570 


RSM52 


04573 


RSM71 


04544 


RSH72 


04547 


RSM73 


04552 


RSM74 


04555 


RSM75 


04560 


RSM76 


04563 


RSM77 


04565 


RTAT 


00653 


RTNIT 


06572 


RTSS 


00755 


RXCT1 


04711 


RXCT2 


04731 


RXCT3 


04751 


RXCT4 


04771 


RXCT5 


05011 


SAOAC 


03153 


SAVAC 


07526 


SAV3 


06526 


SAV4 


07535 


SAV5 


06527 


SAV6 


06530 


S9A 


707761 


SELECT 


07153 


SEOUEN 


00112 


SERS01 


02651 


SERS02 


02665 


SERS03 


02702 


SERS04 


02720 


SERS05 


02737 


SERS06 


02757 


SERS07 


03000 


SETCLK 


06614 


8ETTY 


07061 


SpCE 


07362 


SRV1NT 


06531 


STORE 


07361 


SUB1 


07053 


SUMNEC 


03055 


SyMPOS 


03056 


SWHA 


742030 


TAOAC 


01445 


TAOD1 


07051 


taoran 


06404 


TBLTOP 


06361 


TCF 


700402 


TCLK 


07523 


TEULV 


00076 


TJAC 


06030 


TLAW 


01132 


tls 


700406 


tlssf 


07237 


TS&AL 


&4176 
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TSDB 1 ? 22214 

TST 702431 

TSJMS 24?56 

TSWK 061?4 

T SXCT 2-4613 

TSXG 26132 

TTBUFA 27613 

TTIN ?7352 

TTOUT 07351 

TTYJNT 06646 

UPR 07367 

WC02 07370 

WC04 07371 

WC256 07336 

WC32 07372 

WDCNT 07335 

WORK 27514 

WORK1 07515 

W0«K2 07516 

W0RK3 07517 

WORM 07520 

XCTOAC 05067 

XCTDEH 05412 

XCTISZ 05066 

XCTRAL 07524 

XCTR12 05064 

XCTTAO 05070 

XCT11 07600 

XCT12 07601 

XCU2S 05063 

XCT125 07604 

XCT13 07602 

XCU7 07603 

XTR1 07075 

XORAC 01404 

XTJMSI 05205 

XTR11 05045 

XTR12 Z5051 

XTR13 05055 

XTR17 05061 

XTXCT 05341 

XT1R 05046 

XT11S 05044 

XT12S 05050 

XT13S 05054 

XT17S 05060 

XT2R 05052 

XT3R 05056 

XT4R 05062 

XT5R 05065 

ZRONOT 07041 
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TELL* ???76 
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INITPI Ci?l47 

INHIT eei*? 

JOTST SS1&4 

E24 SPl57 

E25 20163 

E26 00167 

E27 20173 

E27A 00207 

TSD8R 00214 

E28 20217 

E29 20223 

E30 09227 

E31 00233 

DBRX 00237 

OBRXX 002*2 

DBRXXX 00250 

OPRAT 00256 

OPERAT 00260 

£32 00262 

E33 00265 

E34 00271 

E35 00274 

E36 00300 

E37 00303 

E36 00307 

E39 00312 

E40 00315 

E41 00320 

E42 00324 

E43 00327 

E44 00333 

E45 0033* 

E46 00342 

E47 00346 

E48 00351 

£49 00355 

£50 00360 

E51 00363 

£52 00370 

E53 00375 

E54 00402 
E55 00410 
£56 00417 
E57 00422 
E56 00427 
E99 00434 

E60 00440 

£61 00443 

E62 00446 

E63 ?045l 

E64 00454 

EM £0462 
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E66 


05)467 


C67 


20473 


E.6B 


005?1 


E69 


00574 


E7? 


00510 


E71 


02513 


E72 


00517 


E73 


00522 


E74 


00526 


E75 


00532 


E76 


00535 


E77 


00540 


E78 


00545 


E79 


00551 


E80 


00555 


E81 


00561 


E82 


00564 


E83 


00570 


E84 


00573 


E85 


00577 


E86 


00603 


E87 


00606 


E88 


00613 


E89 


00621 


E90 


00626 


E91 


00636 


E92 


00646 


RTAT 


00653 


E113 


00677 


E114 


00724 


E115 


00740 


E*16 


00754 


RTSS 


00755 


E140 


01002 


E141 


01030 


E142 


01045 


E*43 


01062 


Ei62 


01066 


E163 


01072 


E164 


01076 


E165 


01102 


E166 


01106 


E167 


01112 


E168 


01116 


E169 


01122 


E170 


01125 


TtAW 


01132 


E206 


01136 


E207 


01141 


E208 


01144 


E209 


01147 


E210 


01152 


E211 


01154 


E212 


01160 


E213 


01163 
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£214 01166 

£215 01171 

E216 ?1174 

E217 01177 

E216 01201 

E219 01226 

E220 01210 

E221 01215 

E222 01217 

E223 01224 

E224 01226 

E225 01233 

E226 01235 

LACK 01242 

E258 01245 

E259 01247 

E260 01253 

E261 01255 

E262 01261 

E263 01263 

E264 01267 

E265 01271 

E266 01276 

E267 01300 

E268 01305 

E269 01307 

E270 01314 

E27l 01316 

£272 01323 

E273 01334 

ANDAC 01341 

E274 -01344 

E275 01350 

£276 -01354 

E277 01361 

E276 01375 

£279 01377 

XORAC 01404 

E280 01407 

E281 01414 

E282 01421 

E283 01425 

E284 01440 

TADAC 0|445 

£285 01450 

E286 01452 

E287 0|457 

E288 01461 

£289 01466 

E290 01470 

E291 01476 

E292 01500 

£293 01504 

£294 01506 

£255 01512 
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E296 


015K 


E297 


01522 


E298 


01524 


E299 


01532 


E300 


01534 


E3B1 


01544 


E302 


01552 


ADOAC 


01557 


E303 


01564 


E304 


01566 


E305 


01574 


E306 


01576 


E307 


016Z4 


E308 


01606 


E309 


01614 


£310 


01616 


E311 


01624 


E312 


01626 


E313 


01634 


E314 


01636 


E315 


01644 


E3J6 


01646 


E317 


01694 


E318 


01636 


E319 


01664 


E320 


01666 


E321 


01675 


E322 


01677 


E323 


01706 


E324 


01710 


E325 


01717 


E326 


01721 


E327 


01730 


E328 


01732 


E329 


01741 


E330 


01743 


E331 


01752 


E332 


01754 


E333 


01763 


E334 


01765 


E335 


01774 


E336 


0J776 


E337 


02005 


E338 


02007 


E339 


02016 


E340 


02020 


ADOAC1 


02025 


E347 


02033 


E348 


02035 


E349 


02044 


E350 


02046 


E351 


02055 


E352 


02057 


E353 


02066 


E354 


02070 
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BX 


E355 


22077 


E356 


02101 


E357 


22110 


E358 


02112 


E359 


02121 


E360 


02123 


E361 


02132 


E362 


02134 


E363 


02143 


E364 


02145 


E365 


02154 


E366 


02156 


E367 


02165 


E368 


02167 


E369 


02176 


E370 


02200 


E371 


02207 


E372 


02211 


E373 


02220 


E374 


02222 


E375 


02231 


E376 


02233 


E377 


02242 


E378 


02244 


E379 


02253 


E380 


02255 


E381 


02264 


E3B2 


02266 


E383 


02275 


E384 


02277 


£385 


02306 


E386 


02310 


E387 


02317 


E388 


02321 


E389 


02330 


E390 


02332 


E391 


02341 


E392 


02343 


E393 


02351 


E394 


02353 


E395 


02361 


E396 


02363 


E397 


02371 


E398 


02373 


E399 


02406 


E400 


02410 


RAMAOD 


02415 


M1NUSA 


02424 


MJNUSB 


02434 


MJNSAB 


02444 


APLUSB 


02452 


BM1NSA 


02460 


AMINSB 


02466 


APLSBT 


02507 


EMI 


&2514 



BX8K 



■AG 



ex8K 



8X8K 



0FUCK1 


02517 


E402 


02520 


AMNiSBT 


32522 


£403 


02527 


OFLCK2 


02532 


E404 


02533 


maplmb 


02535 


E405 


02542 


0FLCK3 


02545 


£406 


02546 


bmnsat 


02550 


ABMATS 


02563 


E407 


02570 


0FUCK5 


02573 


E408 


02574 


8MAM8T 


02576 


E409 


02603 


0FUCK6 


02606 


E410 


02607 


MABPAT 


02611 


E411 


02616 


OFUCK7 


02621 


E412 


02622 


AMBPBT 


02624 


E413 


02631 


0FLCK8 


02634 


E414 


02635 


M0ACPA 


02637 


E415 


02643 


0FLCK9 


02646 


E416 


02647 


S£RS01 


02651 


E417 


02657 


OFLCH1 


02662 


E416 


02663 


SE«S02 


02669 


E419 


02674 


0FI.CM2 


02677 


E420 


02700 


SEWS03 


02702 


E421 


02712 


0FLCH3 


02715 


E422 


02716 


SERS04 


02720 


E423 


02731 


0FLCH4 


02734 


E424 


02735 


SERS05 


02737 


E425 


02751 


0FUCH5 


02754 


E426 


02755 


SERS06 


02757 


E427 


02772 


0FLCH6 


02775 


£428 


02776 
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BX8K 



SERS07 

E429 

0FLCH7 

£430 

CONCHG 

CKIP 

APOS 

ANEG 

8P0S 

BNEG 

SUMNEG 

SUMPOS 

bmasum 

AMBSUM 

HSKBIT 

PASS2 

AOEDON 

BJSETU 

MODNEG 

BITTS1 

E431 

OFLCH8 

£432 

8ITTS2 

E433 

0FUCH9 

£434 

SADAC 

£435 

£436 

E437 

£438 

£439 

£440 

E441 

£442 

£443 

£444 

D2MAC 

£445 

£446 

E447 

E448 

E449 

£450 

E451 

E452 

E453 

£454 

E455 

£456 

E497 

E458 

E459 

DAJLAC 



03000 
03014 
03017 
03020 
33022 
03044 
03051 
03052 
03053 
03054 
03055 
03056 
03057 
03060 
03061 
03062 
03063 
03071 
03103 
03110 
03115 
03120 
03121 
03123 
03130 
03133 
03134 
03153 
03156 
03161 
03164 
03170 
03175 
03201 
03205 
03212 
03231 
03250 
03255 
03261 
03266 
03273 
03300 
03305 
03312 
03317 
03324 
03331 
03336 
03344 
03346 
03351 
03361 
23367 
rfL3374 
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E460 


03400 


E1461 


03405 


E462 


03412 


E463 


03417 


E464 


03424 


E465 


03431 


E466 


03436 


E467 


03443 


E466 


03450 


E469 


03462 


£470 


03472 


ISZAC 


03477 


E471 


03503 


£472 


03507 


E473 


03514 


E474 


03520 


E475 


03525 


E476 


03531 


E477 


03536 


E478 


03542 


E479 


03547 


E480 


03553 


£481 


03560 


£462 


03564 


E483 


03571 


£484 


03574 


E485 


03601 


£486 


03604 


E487 


03611 


£488 


03614 


£489 


03621 


£490 


03624 


£491 


03631 


£492 


03634 


£493 


03641 


E494 


03644 


£495 


03651 


E496 


03654 


£497 


03661 


£498 


03664 


£499 


03671 


£500 


03674 


E501 


03714 


E502 


03724 


£503 


03750 


E504 


03756 


E505 


• 03764 


£506 


03773 


E507 


04002 


IN1T4K 


04003 


£908 


04031 


MOOX 


04034 


E509 


00037 


HjMpi 


042)45 


£510 


04050 
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B: 


RJMP2 


04056 


E511 


04061 


S JMP3 


04067 


E512 


04072 


RJMP4 


04100 


E513 


04103 


RJMP5 


04111 


E514 


04114 


RJMP6 


04122 


E515 


04125 


RJMP7 


04133 


E516 


04136 


RJHP6 


04144 


E517 


04147 


RJHP9 


04155 


JMPSEQ 


04163 


MOD 


04164 


Rjlll 


04165 


RJ222 


04166 


RJ333 


04167 


Rj444 


04170 


RJ555 


04171 


RJ666 


04172 


RJ777 


04173 


Rj252 


04174 


Rj525 


04175 


TSCAL 


04176 


E518 


04200 


RCAIS0 


04212 


E519 


04216 


E319A 


04221 


E520 


04224 


RCALS1 


04233 


E521 


04237 


E521A 


04242 


RCAI.0 


04252 


KCAL0 


04253 


RCAL.1 


04254 


KCAUE 


04255 


TSJMS 


04256 


E522 


04260 


RJMS71 


04271 


E523 


04275 


E524 


24300 


RJMS72 


04312 


C525 


04316 


E526 


04321 


RJMS73 


04333 


E527 


04337 


E528 


04342 


RJMS74 


04354 


E5?9 


04360 


E530 


04363 


RJMS75 


04375 


E5ii 


46401 



ex8K 



f53 



BX8k 



BX8K 



E532 


04404 


"JMS76 


04416 


E533 


04422 


E536 


?4425 


RjMSlO 


04436 


E537 


04442 


E538 


04445 


RJHS15 


04456 


E539 


04462 


E540 


04465 


JS1 


04467 


E541 


04470 


JS2 


04471 


E542 


04472 


JS3 


04473 


E343 


04474 


JS4 


04477 


E544 


04500 


RjMSS 


04501 


E545 


04510 


E546 


04517 


E547 


04526 


E548 


04535 


RJSM71 


04543 


RSM71 


04544 


K10000 


04545 


RJSM72 


04546 


RSM72 


04547 


K77 


04550 


RJSM73 


04551 


RSH73 


04552 


K76 


04553 


RJSM74 


34554 


RSM74 


04555 


K75 


04556 


RJSM7S 


04557 


R8M75 


04560 


K74 


04561 


fjSM76 


04562 


RSM76 


04563 


K73 


04564 


RSM77 


04565 


K72 


04566 


RJSM25 


04567 


RSM25 


04570 


K426 


04571 


RJSM52 


04572 


RSM5? 


04573 


K71 


04574 


K415 


04575 


KjSl 


04576 


KJS2 


04577 


KJS3 


04600 


KJS4 


04601 


K210K 


04602 
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K277 


04603 


K276 


04604 


K275 


04605 


K274 


046^6 


K273 


04607 


K626 


04610 


K615 


04611 


sK2i52 


04612 


TSXCT 


04613 


E549 


04617 


E§50 


04622 


E$51 


04627 


E552 


04631 


E553 


04633 


E554 


04637 


E555 


04644 


E556 


04690 


E597 


04656 


E558 


04660 


E559 


04665 


E560 


04667 


E561 


04675 


€562 


04700 


RXCT1 


04711 


E563 


04715 


E564 


04720 


RXCT2 


04731 


E565 


04735 


E566 


04740 


RXCT3 


04751 


E567 


04755 


E966 


04760 


RXCT4 


04771 


E569 


04775 


E570 


05000 


RXCT5 


05011 


E571 


05015 


E572 


05034 


E573 


05036 


XT11S 


05044 


XTR11 


05045 


XT1R 


05046 


«12 


05017 


XT12S 


05050 


XTR12 


05051 


XT2R 


05052 


K23 


05053 


XT13S 


05054 


XTR13 


05055 


XT3R 


05056 


K34 


05057 


XT17S 


05060 


XTR17 


05061 


XT4R 


05062 


XCJL12S 


£.5063 
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XCTR12 


05064 


XT5R 


05065 


*CTIS2 


05066 


XCTDAC 


05067 
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IDENTIFICATION 

PRODUCT CODE: MAINDEC-15-D7BC-DN 

PRODUCT NAME: PDP-15 8K BASIC EXERCISER 

ADDENDUM 

DATE CREATED: AUGUST 7, 1970 

MAINTAINER: DIAGNOSTIC GROUP 

AUTHOR: j. W . RICHARDSON 



The purpose of the 8K Basic Exerciser is to exercise 
the PDP-15 Central Processor and I/O Control logic by 
running an instruction test and alternately selecting 
the teletype and PC15. 

The method of feeding the paper tape directly from 
the high speed punch to the high speed reader is 
unorthodox, but necessary. Due to the tension placed 
on the reader, the paper tape may sometimes skew 
causing a punched character to be misread. This will 
appear as a misprint on the teletype. 

The frequency of misprinting will vary, but will generally 
appear no more than once every several lines of print. The 
misprint is not due to a reader or teletype fault. 

A user may determine definitely if a real error exists 
by allowing the program to punch for a period of time, 
removing the tape and placing it in the reader hopper. 
The reader will then read the tape directly from the 
hopper. The main document lists the AC switch settings 
which will enable the program to operate in this manner. 



